(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    550845,      11521]
NotebookOptionsPosition[    517880,      10934]
NotebookOutlinePosition[    519420,      10971]
CellTagsIndexPosition[    519144,      10963]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Chapter 1 : Introduction to Mathematica", "Chapter",
 CellChangeTimes->{{3.906577477572036*^9, 3.906577479509438*^9}, {
  3.90657751575904*^9, 
  3.9065775450047617`*^9}},ExpressionUUID->"a3125ec1-3675-4f59-a1aa-\
7380f66fecba"],

Cell["1.1 Why Mathematica", "Section",
 CellChangeTimes->{{3.9065775830043993`*^9, 
  3.9065776032489023`*^9}},ExpressionUUID->"5618285f-edcb-412d-a71a-\
872ad37654c5"],

Cell["1.2 The Wolfram Language", "Section",
 CellChangeTimes->{{3.9065776136909647`*^9, 
  3.906577626577925*^9}},ExpressionUUID->"d9ac3942-d4f0-4a29-8144-\
4bdf94981934"],

Cell[CellGroupData[{

Cell["1.3 Structure of Mathematica", "Section",
 CellChangeTimes->{{3.90657763537834*^9, 
  3.906577650141611*^9}},ExpressionUUID->"a5b28608-daf8-4937-8fbb-\
467968534dfe"],

Cell[CellGroupData[{

Cell["1.3.1 Design of Mathematica", "Subsection",
 CellChangeTimes->{{3.906577664101173*^9, 3.90657767379207*^9}, {
  3.9065777862667217`*^9, 
  3.906577792425267*^9}},ExpressionUUID->"de0c3eb4-059a-4e31-80ac-\
375d86c04b74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"11", "*", "17"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"4", "/", "2"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.901227912074596*^9, 3.901227918892316*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"51c40a3a-e0ba-4df7-ac01-21d0c7af8eeb"],

Cell[BoxData["189"], "Output",
 CellChangeTimes->{
  3.903537683084157*^9, {3.903565753292248*^9, 3.903565768764179*^9}, 
   3.903566184498168*^9, 3.903618785399857*^9, 3.9036194710834017`*^9, 
   3.9036203863385572`*^9, 3.903620500930543*^9, 3.903621747311562*^9, 
   3.903622034677613*^9, 3.903622098967095*^9, 3.903622852996006*^9, 
   3.903623135413724*^9, 3.903623231710607*^9, 3.903625411312297*^9, 
   3.903625651742654*^9, 3.903628088238729*^9, 3.903634836523159*^9, 
   3.903635360117295*^9, 3.903636135988443*^9, 3.903637125940703*^9, {
   3.90364025254729*^9, 3.903640300908973*^9}, 3.903640500520853*^9, 
   3.903709522966023*^9, 3.903709713643046*^9, 3.9037097991229277`*^9, 
   3.903710830295073*^9, 3.90371130147626*^9, 3.903711741926138*^9, 
   3.903712052320517*^9, 3.903963966070161*^9, 3.90396432585742*^9, 
   3.9040478636818733`*^9, 3.9040515896005898`*^9, 3.904054801174758*^9, 
   3.904062524781217*^9, 3.904072633015934*^9, 3.904073352146635*^9, 
   3.904073393570788*^9, 3.904074090866151*^9, 3.904078107689406*^9, 
   3.9042540072652683`*^9, 3.904256247505818*^9, 3.904329931272213*^9, 
   3.904332003428725*^9, {3.90433207518116*^9, 3.904332089533967*^9}, 
   3.9043339247772617`*^9, 3.904409683266947*^9, 3.904411382062862*^9, 
   3.904416770097118*^9, 3.904417132410143*^9, 3.906385371082189*^9, 
   3.9065786454220753`*^9, 3.906581101634683*^9, 3.906581706666013*^9, 
   3.9065824927896223`*^9, 3.906582827657085*^9, 3.9089954464782267`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"c1a6def8-be2e-4df5-80d6-66d6825f0665"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.4 Mathematica Environment", "Section",
 CellChangeTimes->{{3.906578127179288*^9, 
  3.9065781385055428`*^9}},ExpressionUUID->"98436880-1d0c-4a17-b9b0-\
abc9b481aa9f"],

Cell["1.4.1 Notebook Interface", "Subsection",
 CellChangeTimes->{{3.906578143229465*^9, 
  3.906578159282748*^9}},ExpressionUUID->"4786d9d5-f601-4f10-9c92-\
317db46fcf83"],

Cell["1.4.2 Text Processing", "Subsection",
 CellChangeTimes->{{3.906578170654999*^9, 3.9065781846201*^9}, 
   3.906578216148705*^9},ExpressionUUID->"70b1219c-d083-410c-a03a-\
0a90df1c5092"],

Cell["1.4.3 Palettes", "Subsection",
 CellChangeTimes->{{3.906578201126192*^9, 
  3.906578211872007*^9}},ExpressionUUID->"d1b9ec5e-f6ee-4d0b-b56a-\
215404be1220"],

Cell[CellGroupData[{

Cell["1.4.4 Notebook Style and Features", "Subsection",
 CellChangeTimes->{{3.906578222537877*^9, 
  3.906578246111723*^9}},ExpressionUUID->"3cec6dab-79a1-4499-b335-\
33c7d3924f96"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "12"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"10", "^", "4"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903450729368697*^9, 3.903450730212261*^9}, {
  3.903450856389927*^9, 3.903450890302774*^9}, {3.903450946014329*^9, 
  3.903450970301798*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"d7883bad-0601-476c-b0df-6d5898343ee9"],

Cell[BoxData[
 TemplateBox[<|"shortenedBoxes" -> TagBox[
     RowBox[{"{", 
       RowBox[{
        "1", ",", "4096", ",", "531441", ",", "16777216", ",", "244140625", 
         ",", "2176782336", ",", "13841287201", ",", 
         TemplateBox[{"9986"}, "OutputSizeLimit`Skeleton"], ",", 
         "992823712544090457167981380682505913228130062336", ",", 
         "994016472530912764431314433164126947265869140625", ",", 
         "995210545932663893703406711545535240098300297216", ",", 
         "996405934064007576113422822072620129702142891441", ",", 
         "997602638240791746619125863667087366758154244096", ",", 
         "998800659780049492080923920804949780006599880001", ",", 
         "1000000000000000000000000000000000000000000000000"}], "}"}], 
     Short[#, 8]& ], "line" -> 2, "sessionID" -> 29159776013087956237, 
   "byteCount" -> 682696, "size" -> 8, "stored" -> False, "expr" -> 
   Missing["NotAvailable", "NewSessionID"], "wrap" -> OutputSizeLimit`Defer, 
   "version" -> 1|>,
  "OutputSizeLimitTemplate"]], "Output",
 CellChangeTimes->{
  3.903534705770892*^9, {3.903565753565979*^9, 3.903565769125382*^9}, 
   3.903566184652605*^9, 3.903618785747937*^9, 3.90361947123737*^9, 
   3.903620386492616*^9, 3.90362050109503*^9, 3.903621747465698*^9, 
   3.9036220348314953`*^9, 3.9036220991290007`*^9, 3.903622853151033*^9, 
   3.9036231355678263`*^9, 3.903623231863312*^9, 3.903625411669787*^9, 
   3.903625652181237*^9, 3.903628088393615*^9, 3.90363483679804*^9, 
   3.903635360271964*^9, 3.903636136142053*^9, {3.903637104245159*^9, 
   3.903637126130261*^9}, {3.903640252813971*^9, 3.903640301182756*^9}, 
   3.90364050080311*^9, 3.903709523238261*^9, 3.903709713797377*^9, 
   3.903709799274387*^9, 3.903710830584263*^9, 3.90371130177162*^9, 
   3.903711742250393*^9, 3.9037120526513033`*^9, 3.903963967395199*^9, 
   3.9039643266107955`*^9, 3.904047864045217*^9, 3.904051589757966*^9, 
   3.904054801429425*^9, 3.904062524939755*^9, 3.904072633170512*^9, 
   3.904073352364561*^9, 3.904073393745399*^9, 3.904074091038952*^9, 
   3.9040781078546143`*^9, 3.904254007422373*^9, 3.904256247661498*^9, 
   3.904329931524581*^9, 3.904332003559059*^9, {3.904332075336763*^9, 
   3.904332089688642*^9}, 3.904333924928154*^9, 3.904409683420927*^9, 
   3.904411382217028*^9, 3.9044167702596283`*^9, 3.904417132577752*^9, 
   3.906391382787186*^9, 3.906578645742427*^9, 3.906581120735347*^9, 
   3.906581706835372*^9, 3.906582493072432*^9, 3.906582827819306*^9, 
   3.9089954467935266`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"87a4516d-7070-4757-879d-b3b70f4df549"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.5 Expression in Mathematica", "Section",
 CellChangeTimes->{{3.906578622210245*^9, 
  3.906578635258034*^9}},ExpressionUUID->"1d28e189-4ed8-4d59-9b5b-\
8214d7ef4291"],

Cell[CellGroupData[{

Cell["Expression in Mathematica", "Subsection",
 CellChangeTimes->{{3.906580083027298*^9, 
  3.9065800925863543`*^9}},ExpressionUUID->"9f982d47-c173-4b38-90c8-\
12efd6ad893d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"3", "*", "3"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"4", "/", "2"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.9030269434185743`*^9, 3.903026944843668*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"103a1510-c6d8-40a1-b496-495c5b28c72c"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{
  3.903026948692718*^9, 3.903027066949526*^9, 3.9032690288429217`*^9, {
   3.903269531523197*^9, 3.903269558130629*^9}, {3.903270915156114*^9, 
   3.903270932447934*^9}, 3.903271256441881*^9, 3.903354899059206*^9, 
   3.903355603449328*^9, {3.903355664698381*^9, 3.903355674673337*^9}, 
   3.9034399095356693`*^9, 3.90344295776985*^9, 3.903443020067728*^9, 
   3.9034430733569517`*^9, 3.903448246959126*^9, 3.9034530114298964`*^9, {
   3.903565753605418*^9, 3.90356576915362*^9}, 3.903566184719976*^9, 
   3.903618785778497*^9, 3.903619471302773*^9, 3.903620386540914*^9, 
   3.903620501162085*^9, 3.903621747632186*^9, 3.903622034993837*^9, 
   3.903622099292658*^9, 3.903622853318338*^9, 3.903623135732831*^9, 
   3.903623232027529*^9, 3.903625411720185*^9, 3.90362565235399*^9, 
   3.903628088561208*^9, 3.903634836826383*^9, 3.903635360440159*^9, 
   3.9036361362935953`*^9, {3.903637112489957*^9, 3.903637126152437*^9}, {
   3.903640252835972*^9, 3.903640301314797*^9}, 3.903640500932185*^9, 
   3.903709523263131*^9, 3.903709713966721*^9, 3.903709799441411*^9, 
   3.90371083063024*^9, 3.903711301801791*^9, 3.903711742288858*^9, 
   3.903712052690714*^9, 3.903963967608839*^9, 3.903964326782945*^9, 
   3.904047864069519*^9, 3.904051589824407*^9, 3.90405480145324*^9, 
   3.90406252500871*^9, 3.904072633239423*^9, 3.904073352400282*^9, 
   3.904073393801902*^9, 3.904074091112604*^9, 3.9040781079067907`*^9, 
   3.904254007491563*^9, 3.904256247724516*^9, 3.904329931548893*^9, 
   3.904332003584421*^9, {3.904332075401654*^9, 3.904332089849272*^9}, 
   3.904333924993071*^9, 3.9044096834919643`*^9, 3.904411382288278*^9, 
   3.904416770424949*^9, 3.9044171326537447`*^9, 3.906392294818377*^9, 
   3.906578645766191*^9, 3.906581128927219*^9, 3.906581706904768*^9, 
   3.906582493095812*^9, 3.906582827841422*^9, 3.9089954467982693`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"500dd5a1-3c75-48dd-badf-e731ec3b1bc0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox["100", "2"], "*", "10"}]], "Input",
 CellChangeTimes->{{3.9030270257840843`*^9, 3.903027045898356*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"a96a2007-dc37-41f7-a4fd-725928c0a17a"],

Cell[BoxData["100000"], "Output",
 CellChangeTimes->{{3.903027037515993*^9, 3.903027066953835*^9}, 
   3.903269028855817*^9, {3.903269531527136*^9, 3.903269558134759*^9}, {
   3.9032709151600237`*^9, 3.903270932452564*^9}, 3.903271256445978*^9, 
   3.903354899062706*^9, 3.903355603457517*^9, {3.903355664702208*^9, 
   3.903355674677545*^9}, 3.90343990955161*^9, 3.903442957787682*^9, 
   3.903443020075448*^9, 3.903443073361212*^9, 3.903448246963323*^9, 
   3.90345301143552*^9, {3.903565753609694*^9, 3.9035657691782513`*^9}, 
   3.9035661847241917`*^9, 3.9036187857984877`*^9, 3.903619471306889*^9, 
   3.903620386559901*^9, 3.903620501166446*^9, 3.903621747640918*^9, 
   3.903622034998317*^9, 3.903622099297098*^9, 3.903622853336122*^9, 
   3.90362313574014*^9, 3.90362323203204*^9, 3.903625411751841*^9, 
   3.903625652378196*^9, 3.903628088565904*^9, 3.903634836845011*^9, 
   3.903635360444591*^9, 3.903636136314379*^9, {3.903637114775198*^9, 
   3.903637126175468*^9}, {3.903640252853331*^9, 3.903640301334489*^9}, 
   3.903640500952003*^9, 3.90370952328196*^9, 3.903709713971145*^9, 
   3.9037097994496326`*^9, 3.9037108306747837`*^9, 3.9037113018241796`*^9, 
   3.9037117423202777`*^9, 3.903712052717966*^9, 3.903963967684294*^9, 
   3.9039643268146453`*^9, 3.904047864083083*^9, 3.90405158982899*^9, 
   3.904054801472453*^9, 3.904062525013933*^9, 3.9040726332438583`*^9, 
   3.904073352426272*^9, 3.904073393827772*^9, 3.904074091123116*^9, 
   3.9040781079130907`*^9, 3.904254007496277*^9, 3.90425624772936*^9, 
   3.904329931563778*^9, 3.904332003599649*^9, {3.904332075406273*^9, 
   3.90433208985397*^9}, 3.904333924997673*^9, 3.9044096834963007`*^9, 
   3.904411382292993*^9, 3.90441677042929*^9, 3.9044171326585617`*^9, 
   3.9063925370028753`*^9, 3.906578645777721*^9, 3.906581131811617*^9, 
   3.906581706910036*^9, 3.906582493111771*^9, 3.906582827845645*^9, 
   3.908995446811895*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"ccdc7335-6a88-4a3b-981e-70c588a2eb59"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", " ", "1"}]], "Input",
 CellChangeTimes->{{3.903027133232016*^9, 3.903027134326304*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"088ed5e7-bf96-46ff-934b-e052012460a3"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.903027135170433*^9, 3.903269028859624*^9, {3.9032695315305443`*^9, 
   3.903269558152061*^9}, {3.903270915178936*^9, 3.903270932456061*^9}, 
   3.903271256449444*^9, 3.903354899066633*^9, 3.903355603477713*^9, {
   3.903355664727452*^9, 3.903355674681077*^9}, 3.903439909556128*^9, 
   3.903442957792141*^9, 3.90344302009329*^9, 3.903443073364803*^9, 
   3.903448246981106*^9, 3.903453011451412*^9, {3.903565753626602*^9, 
   3.903565769184157*^9}, 3.903566184727766*^9, 3.90361878580757*^9, 
   3.903619471310405*^9, 3.903620386564191*^9, 3.903620501170123*^9, 
   3.903621747659094*^9, 3.903622035002579*^9, 3.903622099320724*^9, 
   3.90362285334035*^9, 3.903623135759026*^9, 3.9036232320563*^9, 
   3.903625411757779*^9, 3.903625652385154*^9, 3.9036280885828857`*^9, 
   3.903634836850047*^9, 3.903635360448326*^9, 3.9036361363189774`*^9, 
   3.903637126179676*^9, {3.903640252857128*^9, 3.903640301338882*^9}, 
   3.903640500957818*^9, 3.903709523286145*^9, 3.9037097139748583`*^9, 
   3.903709799470014*^9, 3.903710830680626*^9, 3.903711301828837*^9, 
   3.903711742328328*^9, 3.903712052723978*^9, 3.903963967750288*^9, 
   3.903964326861533*^9, 3.904047864087359*^9, 3.904051589832818*^9, 
   3.904054801481778*^9, 3.90406252501804*^9, 3.9040726332475443`*^9, 
   3.904073352431089*^9, 3.904073393836729*^9, 3.904074091149706*^9, 
   3.904078107939967*^9, 3.904254007516621*^9, 3.904256247744571*^9, 
   3.904329931568539*^9, 3.904332003604094*^9, {3.904332075410026*^9, 
   3.904332089868813*^9}, 3.9043339250184*^9, 3.904409683514631*^9, 
   3.90441138231795*^9, 3.904416770446184*^9, 3.904417132683573*^9, 
   3.906392539189244*^9, 3.906578645784918*^9, 3.906581135905759*^9, 
   3.9065817069317636`*^9, 3.906582493117034*^9, 3.906582827869522*^9, 
   3.908995446817152*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"06cce500-226e-41c0-ac36-a3ddafc3fec8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], "+", 
  SqrtBox["2"]}]], "Input",
 CellChangeTimes->{{3.9030274448175583`*^9, 3.903027454279265*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"77333253-fedf-417b-9b4c-6f4e49ce6d70"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], "+", 
  SqrtBox["2"]}]], "Output",
 CellChangeTimes->{
  3.903027456076036*^9, 3.903269028863029*^9, {3.9032695315512114`*^9, 
   3.903269558156115*^9}, {3.903270915182975*^9, 3.903270932459529*^9}, 
   3.903271256452897*^9, 3.903354899074055*^9, 3.903355603481812*^9, {
   3.903355664731496*^9, 3.903355674684607*^9}, 3.9034399095596*^9, 
   3.903442957796689*^9, 3.903443020097537*^9, 3.903443073368361*^9, 
   3.903448246985402*^9, 3.903453011455882*^9, {3.903565753632806*^9, 
   3.903565769203981*^9}, 3.903566184731288*^9, 3.90361878582718*^9, 
   3.903619471332457*^9, 3.903620386567856*^9, 3.903620501194187*^9, 
   3.903621747663571*^9, 3.903622035019702*^9, 3.903622099325221*^9, 
   3.9036228533439293`*^9, 3.903623135763584*^9, 3.903623232060872*^9, 
   3.903625411762972*^9, 3.903625652411951*^9, 3.903628088587607*^9, 
   3.90363483685376*^9, 3.903635360473184*^9, 3.90363613632275*^9, 
   3.903637126204687*^9, {3.903640252860544*^9, 3.903640301342583*^9}, 
   3.903640500977387*^9, 3.90370952328985*^9, 3.903709714001026*^9, 
   3.903709799474605*^9, 3.903710830717773*^9, 3.903711301833123*^9, 
   3.903711742357641*^9, 3.9037120527296147`*^9, 3.90396396781288*^9, 
   3.903964326893203*^9, 3.904047864091111*^9, 3.904051589851302*^9, 
   3.90405480150049*^9, 3.904062525042823*^9, 3.904072633274557*^9, 
   3.904073352461142*^9, 3.904073393862068*^9, 3.904074091154547*^9, 
   3.904078107944645*^9, 3.904254007521782*^9, 3.904256247749616*^9, 
   3.9043299315735693`*^9, 3.904332003608032*^9, {3.904332075413818*^9, 
   3.904332089873591*^9}, 3.904333925023098*^9, 3.904409683519615*^9, 
   3.904411382322629*^9, 3.904416770450767*^9, 3.9044171326898518`*^9, 
   3.906392659620504*^9, 3.906578645796017*^9, 3.9065811398363547`*^9, 
   3.9065817069372597`*^9, 3.906582493132888*^9, 3.906582827873898*^9, 
   3.908995446835422*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"67b3ffe2-214f-4a2e-b0b9-a56e286c4c72"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   FractionBox["1", "2"], "+", 
   SqrtBox["2"]}], "]"}]], "Input",
 CellChangeTimes->{{3.9030275103532*^9, 3.903027512233073*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"f9c58c74-e3d4-47ea-8b0e-fae311513c4e"],

Cell[BoxData["1.9142135623730951`"], "Output",
 CellChangeTimes->{
  3.903027512593614*^9, 3.903269028880353*^9, {3.903269531555451*^9, 
   3.9032695581594143`*^9}, {3.903270915186468*^9, 3.903270932466029*^9}, 
   3.903271256458393*^9, 3.903354899090075*^9, 3.903355603485386*^9, {
   3.903355664734926*^9, 3.903355674691991*^9}, 3.903439909579178*^9, 
   3.903442957817268*^9, 3.9034430201011553`*^9, 3.903443073375676*^9, 
   3.903448246988984*^9, 3.903453011471005*^9, {3.903565753649023*^9, 
   3.903565769211329*^9}, 3.903566184739098*^9, 3.903618785832041*^9, 
   3.903619471336685*^9, 3.903620386576705*^9, 3.903620501198644*^9, 
   3.903621747667265*^9, 3.903622035024871*^9, 3.90362209932889*^9, 
   3.9036228533477497`*^9, 3.903623135787109*^9, 3.903623232064577*^9, 
   3.903625411794076*^9, 3.903625652418106*^9, 3.90362808859158*^9, 
   3.903634836875481*^9, 3.903635360477721*^9, 3.903636136326482*^9, 
   3.9036371262087917`*^9, {3.903640252882561*^9, 3.903640301346216*^9}, 
   3.903640500981779*^9, 3.903709523313119*^9, 3.903709714005444*^9, 
   3.903709799478394*^9, 3.90371083072701*^9, 3.9037113018375816`*^9, 
   3.903711742363554*^9, 3.903712052759424*^9, 3.903963967875409*^9, 
   3.903964326971366*^9, 3.904047864107422*^9, 3.9040515898572397`*^9, 
   3.904054801505467*^9, 3.904062525047605*^9, 3.904072633281258*^9, 
   3.904073352469544*^9, 3.904073393871821*^9, 3.904074091178323*^9, 
   3.904078107949107*^9, 3.904254007536736*^9, 3.904256247753951*^9, 
   3.904329931593738*^9, 3.904332003611811*^9, {3.904332075418837*^9, 
   3.904332089877624*^9}, 3.9043339250386677`*^9, 3.904409683538068*^9, 
   3.904411382326542*^9, 3.904416770468456*^9, 3.9044171327121572`*^9, 
   3.906392661884861*^9, 3.906578645803791*^9, 3.9065811418970547`*^9, 
   3.90658170696174*^9, 3.906582493138036*^9, 3.906582827877377*^9, 
   3.908995446843138*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"143e0a80-b359-46ef-ba36-7c1ceac350b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"77", "/", "13"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.903269033849462*^9, 3.903269043431789*^9}, {
  3.903269127776936*^9, 3.90326912794696*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"1e399d4d-cefb-49b9-ab39-df3ed4fed97a"],

Cell[BoxData["5.9230769230769230769`10."], "Output",
 CellChangeTimes->{
  3.903269044124324*^9, 3.903269128909915*^9, {3.903269531558942*^9, 
   3.903269558162651*^9}, {3.903270915189788*^9, 3.903270932484975*^9}, 
   3.9032712564765396`*^9, 3.90335489909387*^9, 3.903355603509355*^9, {
   3.903355664758397*^9, 3.9033556747113857`*^9}, 3.903439909583268*^9, 
   3.903442957821493*^9, 3.903443020104994*^9, 3.903443073393471*^9, 
   3.903448246992538*^9, 3.903453011475861*^9, {3.903565753654126*^9, 
   3.903565769230185*^9}, 3.9035661847595043`*^9, 3.903618785853478*^9, 
   3.903619471340207*^9, 3.903620386595475*^9, 3.9036205012029543`*^9, 
   3.903621747688146*^9, 3.90362203502846*^9, 3.903622099332467*^9, 
   3.903622853366672*^9, 3.903623135791689*^9, 3.903623232085553*^9, 
   3.903625411802816*^9, 3.903625652444729*^9, 3.903628088611481*^9, 
   3.903634836879939*^9, 3.90363536048143*^9, 3.9036361363515997`*^9, 
   3.903637126212351*^9, {3.903640252887083*^9, 3.903640301354733*^9}, 
   3.903640500985483*^9, 3.9037095233174148`*^9, 3.903709714009122*^9, 
   3.903709799499527*^9, 3.903710830760942*^9, 3.903711301843322*^9, 
   3.903711742392221*^9, 3.903712052765121*^9, 3.9039639679383597`*^9, 
   3.9039643270187087`*^9, 3.90404786411467*^9, 3.90405158987086*^9, 
   3.90405480150932*^9, 3.904062525052013*^9, 3.90407263330494*^9, 
   3.904073352492453*^9, 3.904073393895382*^9, 3.904074091184638*^9, 
   3.904078107953891*^9, 3.904254007541505*^9, 3.9042562477726183`*^9, 
   3.904329931598576*^9, 3.90433200362084*^9, {3.9043320754350376`*^9, 
   3.904332089895549*^9}, 3.904333925043462*^9, 3.904409683542404*^9, 
   3.904411382347472*^9, 3.904416770473034*^9, 3.904417132717197*^9, 
   3.906392692436593*^9, 3.906578645815812*^9, 3.906581301141974*^9, 
   3.906581706967059*^9, 3.906582493142271*^9, 3.906582827899263*^9, 
   3.908995446856559*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"7849015a-da9e-492d-9b37-655906f69bb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["4.", "2"], "+", 
  FractionBox["2", "13"]}]], "Input",
 CellChangeTimes->{{3.903269170722186*^9, 3.903269218070659*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"7d450193-8f77-4e95-a117-3a6443407c21"],

Cell[BoxData["2.1538461538461537`"], "Output",
 CellChangeTimes->{{3.9032691970406713`*^9, 3.903269218673101*^9}, {
   3.903269531562298*^9, 3.903269558168227*^9}, {3.903270915193104*^9, 
   3.90327093248929*^9}, 3.903271256480826*^9, 3.903354899097623*^9, 
   3.9033556035136023`*^9, {3.903355664762557*^9, 3.903355674715745*^9}, 
   3.903439909597785*^9, 3.90344295782546*^9, 3.9034430201109037`*^9, 
   3.903443073397793*^9, 3.9034482469960427`*^9, 3.903453011479423*^9, {
   3.903565753658124*^9, 3.9035657692361603`*^9}, 3.903566184763702*^9, 
   3.9036187858586273`*^9, 3.90361947134369*^9, 3.90362038659994*^9, 
   3.90362050121106*^9, 3.903621747692493*^9, 3.903622035031999*^9, 
   3.903622099338808*^9, 3.903622853371202*^9, 3.9036231357953653`*^9, 
   3.903623232090201*^9, 3.9036254118293657`*^9, 3.903625652451317*^9, 
   3.90362808861627*^9, 3.903634836884183*^9, 3.9036353604880342`*^9, 
   3.903636136356166*^9, 3.903637126236032*^9, {3.903640252892171*^9, 
   3.903640301374263*^9}, 3.903640501006616*^9, 3.90370952332142*^9, 
   3.903709714017155*^9, 3.90370979950414*^9, 3.903710830766643*^9, 
   3.903711301866565*^9, 3.903711742397941*^9, 3.903712052790976*^9, 
   3.903963968001287*^9, 3.903964327049955*^9, 3.904047864127737*^9, 
   3.9040515898754272`*^9, 3.904054801530874*^9, 3.904062525058546*^9, 
   3.904072633309505*^9, 3.904073352497079*^9, 3.904073393902915*^9, 
   3.904074091208124*^9, 3.90407810795896*^9, 3.904254007545381*^9, 
   3.904256247778757*^9, 3.904329931613776*^9, 3.904332003635867*^9, {
   3.904332075439444*^9, 3.904332089901512*^9}, 3.9043339250473347`*^9, 
   3.904409683560271*^9, 3.904411382352168*^9, 3.9044167704769998`*^9, 
   3.904417132735333*^9, 3.906392742771484*^9, 3.906578645821219*^9, 
   3.9065813195250397`*^9, 3.90658170698949*^9, 3.906582493160934*^9, 
   3.906582827903531*^9, 3.9089954468615527`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"421f068e-be04-4a94-99e2-ea60ad806f15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"11", "/", "7"}], ";", 
  RowBox[{"Sqrt", "[", "4", "]"}]}]], "Input",
 CellChangeTimes->{{3.903269510820067*^9, 3.903269526729358*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"e95fc47f-46c7-4757-b94c-a94aa1040382"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.903269531583275*^9, 3.903269558185931*^9}, {
   3.903270915212277*^9, 3.90327093249286*^9}, 3.903271256484357*^9, 
   3.903354899100861*^9, 3.9033556035170803`*^9, {3.903355664766012*^9, 
   3.903355674719354*^9}, 3.903439909602311*^9, 3.903442957829667*^9, 
   3.9034430201288342`*^9, 3.903443073401375*^9, 3.903448247013227*^9, 
   3.903453011496725*^9, {3.903565753675649*^9, 3.903565769241024*^9}, 
   3.903566184767231*^9, 3.903618785874954*^9, 3.9036194713640623`*^9, 
   3.903620386603535*^9, 3.903620501230409*^9, 3.903621747696361*^9, 
   3.903622035049265*^9, 3.90362209935513*^9, 3.903622853387073*^9, 
   3.903623135798979*^9, 3.903623232108204*^9, 3.90362541183545*^9, 
   3.903625652478022*^9, 3.903628088632778*^9, 3.903634836887844*^9, 
   3.903635360505916*^9, 3.9036361363599157`*^9, 3.903637126240167*^9, {
   3.903640252901195*^9, 3.903640301378578*^9}, 3.903640501011142*^9, 
   3.903709523330438*^9, 3.903709714036136*^9, 3.903709799507897*^9, 
   3.903710830771592*^9, 3.9037113018751597`*^9, 3.903711742403389*^9, 
   3.903712052796766*^9, 3.903963968079434*^9, 3.9039643270972614`*^9, 
   3.904047864131979*^9, 3.904051589889408*^9, 3.904054801535511*^9, 
   3.9040625250761557`*^9, 3.904072633313534*^9, 3.904073352502104*^9, 
   3.90407339392482*^9, 3.904074091213044*^9, 3.9040781079779453`*^9, 
   3.904254007562437*^9, 3.904256247793523*^9, 3.9043299316185617`*^9, 
   3.904332003640539*^9, {3.904332075443343*^9, 3.904332089916222*^9}, 
   3.904333925063914*^9, 3.904409683564661*^9, 3.904411382369829*^9, 
   3.904416770493588*^9, 3.9044171327406588`*^9, 3.906392791195469*^9, 
   3.906578645833354*^9, 3.9065813323161798`*^9, 3.906581706994751*^9, 
   3.9065824931661*^9, 3.906582827920793*^9, 3.908995446865288*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"be2038f6-c57a-4711-bfe2-34fea1755f12"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", "*", "4"}], ";", 
  RowBox[{"100", "*", "100"}], ";", 
  RowBox[{"Sqrt", "[", "4", "]"}], ";", 
  RowBox[{"Power", "[", 
   RowBox[{"2", ",", "2"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.903269676788575*^9, 3.90326967954508*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"55147ca8-51de-4f66-9a93-bd87afed28b4"]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.1 Assigning Values", "Subsection",
 CellChangeTimes->{{3.906578726956393*^9, 
  3.906578748078053*^9}},ExpressionUUID->"32a4e97e-1cc7-4ffd-9e11-\
91de68833c2c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", "Pi"}], "\n", 
 RowBox[{"x", "=", "11"}], "\n", 
 RowBox[{"z", "+", "y"}]}], "Input",
 CellChangeTimes->{{3.903270511193476*^9, 3.90327051119637*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"d2ca437e-cf1d-4a8f-b592-032fc4fbd8e5"],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{
  3.9032705232889013`*^9, 3.903270857589118*^9, {3.9032709152191253`*^9, 
   3.903270932518357*^9}, 3.9032712565090246`*^9, 3.903354899123848*^9, 
   3.903355603542123*^9, {3.903355664790976*^9, 3.903355674744207*^9}, 
   3.903439909620326*^9, 3.903442957853358*^9, 3.903443020136264*^9, 
   3.903443073424457*^9, 3.903448247020637*^9, 3.903453011516224*^9, {
   3.903565753694229*^9, 3.903565769265486*^9}, 3.9035661847912683`*^9, 
   3.903618785883333*^9, 3.903619471370935*^9, 3.90362038662733*^9, 
   3.903620501255605*^9, 3.903621747703487*^9, 3.903622035068355*^9, 
   3.903622099362309*^9, 3.9036228533942757`*^9, 3.903623135820755*^9, 
   3.903623232115744*^9, 3.903625411868928*^9, 3.903625652509271*^9, 
   3.903628088640478*^9, 3.90363483691143*^9, 3.9036353605131273`*^9, 
   3.903636136384365*^9, 3.9036371262462*^9, {3.903640252919958*^9, 
   3.903640301405139*^9}, 3.903640501017547*^9, 3.9037095233517647`*^9, 
   3.903709714043251*^9, 3.903709799531372*^9, 3.90371083081009*^9, 
   3.903711301900136*^9, 3.903711742434664*^9, 3.903712052826962*^9, 
   3.9039639681613216`*^9, 3.9039643271441603`*^9, 3.904047864149013*^9, 
   3.90405158989692*^9, 3.904054801542278*^9, 3.904062525083863*^9, 
   3.9040726333386903`*^9, 3.904073352528103*^9, 3.904073393953317*^9, 
   3.904074091240807*^9, 3.904078107985682*^9, 3.904254007582657*^9, 
   3.904256247801449*^9, 3.904329931629075*^9, 3.9043320036472797`*^9, {
   3.9043320754639053`*^9, 3.9043320899345007`*^9}, 3.9043339250843782`*^9, 
   3.904409683572897*^9, 3.904411382377314*^9, 3.904416770513056*^9, 
   3.904417132766599*^9, 3.90639317221586*^9, 3.906578645849277*^9, 
   3.906580799043055*^9, 3.906581369415127*^9, 3.906581707002055*^9, 
   3.906582493185618*^9, 3.906582827928025*^9, 3.908995446875558*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"bc6c3720-0724-4862-a1c6-5014098eaac5"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{
  3.9032705232889013`*^9, 3.903270857589118*^9, {3.9032709152191253`*^9, 
   3.903270932518357*^9}, 3.9032712565090246`*^9, 3.903354899123848*^9, 
   3.903355603542123*^9, {3.903355664790976*^9, 3.903355674744207*^9}, 
   3.903439909620326*^9, 3.903442957853358*^9, 3.903443020136264*^9, 
   3.903443073424457*^9, 3.903448247020637*^9, 3.903453011516224*^9, {
   3.903565753694229*^9, 3.903565769265486*^9}, 3.9035661847912683`*^9, 
   3.903618785883333*^9, 3.903619471370935*^9, 3.90362038662733*^9, 
   3.903620501255605*^9, 3.903621747703487*^9, 3.903622035068355*^9, 
   3.903622099362309*^9, 3.9036228533942757`*^9, 3.903623135820755*^9, 
   3.903623232115744*^9, 3.903625411868928*^9, 3.903625652509271*^9, 
   3.903628088640478*^9, 3.90363483691143*^9, 3.9036353605131273`*^9, 
   3.903636136384365*^9, 3.9036371262462*^9, {3.903640252919958*^9, 
   3.903640301405139*^9}, 3.903640501017547*^9, 3.9037095233517647`*^9, 
   3.903709714043251*^9, 3.903709799531372*^9, 3.90371083081009*^9, 
   3.903711301900136*^9, 3.903711742434664*^9, 3.903712052826962*^9, 
   3.9039639681613216`*^9, 3.9039643271441603`*^9, 3.904047864149013*^9, 
   3.90405158989692*^9, 3.904054801542278*^9, 3.904062525083863*^9, 
   3.9040726333386903`*^9, 3.904073352528103*^9, 3.904073393953317*^9, 
   3.904074091240807*^9, 3.904078107985682*^9, 3.904254007582657*^9, 
   3.904256247801449*^9, 3.904329931629075*^9, 3.9043320036472797`*^9, {
   3.9043320754639053`*^9, 3.9043320899345007`*^9}, 3.9043339250843782`*^9, 
   3.904409683572897*^9, 3.904411382377314*^9, 3.904416770513056*^9, 
   3.904417132766599*^9, 3.90639317221586*^9, 3.906578645849277*^9, 
   3.906580799043055*^9, 3.906581369415127*^9, 3.906581707002055*^9, 
   3.906582493185618*^9, 3.906582827928025*^9, 3.908995446876095*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"fdaa07c1-ab99-410a-bf72-c28fb670e193"],

Cell[BoxData[
 RowBox[{"y", "+", "z"}]], "Output",
 CellChangeTimes->{
  3.9032705232889013`*^9, 3.903270857589118*^9, {3.9032709152191253`*^9, 
   3.903270932518357*^9}, 3.9032712565090246`*^9, 3.903354899123848*^9, 
   3.903355603542123*^9, {3.903355664790976*^9, 3.903355674744207*^9}, 
   3.903439909620326*^9, 3.903442957853358*^9, 3.903443020136264*^9, 
   3.903443073424457*^9, 3.903448247020637*^9, 3.903453011516224*^9, {
   3.903565753694229*^9, 3.903565769265486*^9}, 3.9035661847912683`*^9, 
   3.903618785883333*^9, 3.903619471370935*^9, 3.90362038662733*^9, 
   3.903620501255605*^9, 3.903621747703487*^9, 3.903622035068355*^9, 
   3.903622099362309*^9, 3.9036228533942757`*^9, 3.903623135820755*^9, 
   3.903623232115744*^9, 3.903625411868928*^9, 3.903625652509271*^9, 
   3.903628088640478*^9, 3.90363483691143*^9, 3.9036353605131273`*^9, 
   3.903636136384365*^9, 3.9036371262462*^9, {3.903640252919958*^9, 
   3.903640301405139*^9}, 3.903640501017547*^9, 3.9037095233517647`*^9, 
   3.903709714043251*^9, 3.903709799531372*^9, 3.90371083081009*^9, 
   3.903711301900136*^9, 3.903711742434664*^9, 3.903712052826962*^9, 
   3.9039639681613216`*^9, 3.9039643271441603`*^9, 3.904047864149013*^9, 
   3.90405158989692*^9, 3.904054801542278*^9, 3.904062525083863*^9, 
   3.9040726333386903`*^9, 3.904073352528103*^9, 3.904073393953317*^9, 
   3.904074091240807*^9, 3.904078107985682*^9, 3.904254007582657*^9, 
   3.904256247801449*^9, 3.904329931629075*^9, 3.9043320036472797`*^9, {
   3.9043320754639053`*^9, 3.9043320899345007`*^9}, 3.9043339250843782`*^9, 
   3.904409683572897*^9, 3.904411382377314*^9, 3.904416770513056*^9, 
   3.904417132766599*^9, 3.90639317221586*^9, 3.906578645849277*^9, 
   3.906580799043055*^9, 3.906581369415127*^9, 3.906581707002055*^9, 
   3.906582493185618*^9, 3.906582827928025*^9, 3.908995446876628*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"8e4e324f-aeb1-423a-9b51-26e42196faa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"%12", "\[IndentingNewLine]", 
 RowBox[{"In", "[", "12", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Out", "[", "12", "]"}]}], "Input",
 CellChangeTimes->{{3.903270784446143*^9, 3.9032708030605783`*^9}, 
   3.903270865582969*^9, 3.903270922822773*^9, {3.90356617201301*^9, 
   3.903566174075918*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"2116587d-03c1-4a59-be11-d5a9e04763cb"],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{
  3.903270803620651*^9, 3.903270860743314*^9, {3.903270915223989*^9, 
   3.9032709325241117`*^9}, 3.903271256515263*^9, 3.903354899140044*^9, 
   3.90335560354782*^9, {3.903355664796589*^9, 3.903355674750005*^9}, 
   3.903439909625679*^9, 3.903442957871393*^9, 3.9034430201446743`*^9, 
   3.90344307343039*^9, 3.90344824702603*^9, 3.903453011521948*^9, {
   3.903565753700767*^9, 3.903565769284185*^9}, 3.903566184797069*^9, 
   3.903618785899976*^9, 3.903619471375921*^9, 3.903620386633243*^9, 
   3.903620501261684*^9, 3.9036217477086983`*^9, 3.9036220350753317`*^9, 
   3.903622099369483*^9, 3.903622853399704*^9, 3.903623135827636*^9, 
   3.903623232121395*^9, 3.903625411898506*^9, 3.903625652517695*^9, 
   3.903628088646888*^9, 3.903634836917301*^9, 3.903635360519882*^9, 
   3.9036361363905478`*^9, 3.903637126269906*^9, {3.903640252926531*^9, 
   3.903640301410469*^9}, 3.903640501040185*^9, 3.903709523357079*^9, 
   3.903709714048598*^9, 3.903709799537719*^9, 3.903710830845642*^9, 
   3.903711301925617*^9, 3.903711742465979*^9, 3.903712052855219*^9, 
   3.9039639683312006`*^9, 3.903964327207303*^9, 3.904047864163783*^9, 
   3.904051589905457*^9, 3.904054801562837*^9, 3.90406252509063*^9, 
   3.904072633345155*^9, 3.90407335255319*^9, 3.90407339396006*^9, 
   3.904074091247256*^9, 3.904078107992537*^9, 3.90425400758915*^9, 
   3.90425624781012*^9, 3.904329931646898*^9, 3.904332003664494*^9, {
   3.9043320754703836`*^9, 3.904332089941183*^9}, 3.9043339250910807`*^9, 
   3.904409683579708*^9, 3.904411382383058*^9, 3.904416770519684*^9, 
   3.9044171327870693`*^9, 3.906393200585647*^9, 3.9065786458582783`*^9, 
   3.906581381422958*^9, 3.906581707008971*^9, 3.906582493192443*^9, 
   3.906582827935274*^9, 3.9089954468902*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"48353739-badc-4ec8-a70d-d6b1e7cc1ab9"],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{
  3.903270803620651*^9, 3.903270860743314*^9, {3.903270915223989*^9, 
   3.9032709325241117`*^9}, 3.903271256515263*^9, 3.903354899140044*^9, 
   3.90335560354782*^9, {3.903355664796589*^9, 3.903355674750005*^9}, 
   3.903439909625679*^9, 3.903442957871393*^9, 3.9034430201446743`*^9, 
   3.90344307343039*^9, 3.90344824702603*^9, 3.903453011521948*^9, {
   3.903565753700767*^9, 3.903565769284185*^9}, 3.903566184797069*^9, 
   3.903618785899976*^9, 3.903619471375921*^9, 3.903620386633243*^9, 
   3.903620501261684*^9, 3.9036217477086983`*^9, 3.9036220350753317`*^9, 
   3.903622099369483*^9, 3.903622853399704*^9, 3.903623135827636*^9, 
   3.903623232121395*^9, 3.903625411898506*^9, 3.903625652517695*^9, 
   3.903628088646888*^9, 3.903634836917301*^9, 3.903635360519882*^9, 
   3.9036361363905478`*^9, 3.903637126269906*^9, {3.903640252926531*^9, 
   3.903640301410469*^9}, 3.903640501040185*^9, 3.903709523357079*^9, 
   3.903709714048598*^9, 3.903709799537719*^9, 3.903710830845642*^9, 
   3.903711301925617*^9, 3.903711742465979*^9, 3.903712052855219*^9, 
   3.9039639683312006`*^9, 3.903964327207303*^9, 3.904047864163783*^9, 
   3.904051589905457*^9, 3.904054801562837*^9, 3.90406252509063*^9, 
   3.904072633345155*^9, 3.90407335255319*^9, 3.90407339396006*^9, 
   3.904074091247256*^9, 3.904078107992537*^9, 3.90425400758915*^9, 
   3.90425624781012*^9, 3.904329931646898*^9, 3.904332003664494*^9, {
   3.9043320754703836`*^9, 3.904332089941183*^9}, 3.9043339250910807`*^9, 
   3.904409683579708*^9, 3.904411382383058*^9, 3.904416770519684*^9, 
   3.9044171327870693`*^9, 3.906393200585647*^9, 3.9065786458582783`*^9, 
   3.906581381422958*^9, 3.906581707008971*^9, 3.906582493192443*^9, 
   3.906582827935274*^9, 3.908995446890791*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"f1212bed-d66d-42b9-aad5-0c8f6ba65cd5"],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{
  3.903270803620651*^9, 3.903270860743314*^9, {3.903270915223989*^9, 
   3.9032709325241117`*^9}, 3.903271256515263*^9, 3.903354899140044*^9, 
   3.90335560354782*^9, {3.903355664796589*^9, 3.903355674750005*^9}, 
   3.903439909625679*^9, 3.903442957871393*^9, 3.9034430201446743`*^9, 
   3.90344307343039*^9, 3.90344824702603*^9, 3.903453011521948*^9, {
   3.903565753700767*^9, 3.903565769284185*^9}, 3.903566184797069*^9, 
   3.903618785899976*^9, 3.903619471375921*^9, 3.903620386633243*^9, 
   3.903620501261684*^9, 3.9036217477086983`*^9, 3.9036220350753317`*^9, 
   3.903622099369483*^9, 3.903622853399704*^9, 3.903623135827636*^9, 
   3.903623232121395*^9, 3.903625411898506*^9, 3.903625652517695*^9, 
   3.903628088646888*^9, 3.903634836917301*^9, 3.903635360519882*^9, 
   3.9036361363905478`*^9, 3.903637126269906*^9, {3.903640252926531*^9, 
   3.903640301410469*^9}, 3.903640501040185*^9, 3.903709523357079*^9, 
   3.903709714048598*^9, 3.903709799537719*^9, 3.903710830845642*^9, 
   3.903711301925617*^9, 3.903711742465979*^9, 3.903712052855219*^9, 
   3.9039639683312006`*^9, 3.903964327207303*^9, 3.904047864163783*^9, 
   3.904051589905457*^9, 3.904054801562837*^9, 3.90406252509063*^9, 
   3.904072633345155*^9, 3.90407335255319*^9, 3.90407339396006*^9, 
   3.904074091247256*^9, 3.904078107992537*^9, 3.90425400758915*^9, 
   3.90425624781012*^9, 3.904329931646898*^9, 3.904332003664494*^9, {
   3.9043320754703836`*^9, 3.904332089941183*^9}, 3.9043339250910807`*^9, 
   3.904409683579708*^9, 3.904411382383058*^9, 3.904416770519684*^9, 
   3.9044171327870693`*^9, 3.906393200585647*^9, 3.9065786458582783`*^9, 
   3.906581381422958*^9, 3.906581707008971*^9, 3.906582493192443*^9, 
   3.906582827935274*^9, 3.908995446891346*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"ba55a9bd-f39e-40de-b68b-af372178e9bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Attributes", "[", "Power", "]"}]], "Input",
 CellChangeTimes->{{3.90327098508829*^9, 3.9032709880330276`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"ec0156d6-8106-4199-8d71-b13f08b1b5b0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "Listable", ",", "NumericFunction", ",", "OneIdentity", ",", "Protected"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.903270988787875*^9, 3.903271256537749*^9, 3.903354899144988*^9, 
   3.903355603552622*^9, {3.903355664801324*^9, 3.9033556747728977`*^9}, 
   3.903439909631759*^9, 3.90344295787687*^9, 3.903443020162821*^9, 
   3.903443073435341*^9, 3.9034482470461473`*^9, 3.903453011536401*^9, {
   3.90356575371458*^9, 3.903565769290532*^9}, 3.903566184814644*^9, 
   3.903618785906796*^9, 3.903619471394374*^9, 3.903620386654003*^9, 
   3.9036205012672377`*^9, 3.90362174772629*^9, 3.903622035091856*^9, 
   3.903622099386897*^9, 3.9036228534175453`*^9, 3.90362313583309*^9, 
   3.903623232141502*^9, 3.903625411906699*^9, 3.903625652548033*^9, 
   3.903628088665536*^9, 3.903634836924823*^9, 3.903635360538741*^9, 
   3.9036361364131737`*^9, 3.903637126275764*^9, {3.903640252934001*^9, 
   3.903640301417821*^9}, 3.903640501046261*^9, 3.903709523363409*^9, 
   3.903709714068456*^9, 3.903709799543067*^9, 3.903710830853568*^9, 
   3.903711301931965*^9, 3.903711742474876*^9, 3.903712052863401*^9, 
   3.903963968457171*^9, 3.903964327269828*^9, 3.904047864169661*^9, 
   3.9040515899207487`*^9, 3.904054801569277*^9, 3.9040625251095753`*^9, 
   3.904072633371568*^9, 3.904073352560218*^9, 3.904073393986245*^9, 
   3.904074091276013*^9, 3.904078108009324*^9, 3.90425400760644*^9, 
   3.904256247826434*^9, 3.904329931653378*^9, 3.904332003670956*^9, {
   3.904332075488677*^9, 3.9043320899469237`*^9}, 3.904333925108102*^9, 
   3.904409683599605*^9, 3.904411382402417*^9, 3.904416770537393*^9, 
   3.904417132793742*^9, 3.9063932703932943`*^9, 3.906578645871426*^9, 
   3.9065813903712797`*^9, 3.906581707032015*^9, 3.906582493200663*^9, 
   3.906582827954154*^9, 3.908995446895392*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"aa358904-2580-4672-b4ab-5dd32cf17237"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "=", "1"}], ",", 
     RowBox[{"k", "=", "2"}], ",", 
     RowBox[{"h", "=", "3"}]}], "}"}], ",", 
   RowBox[{
    RowBox[{"h", 
     SqrtBox[
      RowBox[{" ", 
       RowBox[{"k", "+", "l"}]}]]}], "+", "k", "+", "l"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903271202108974*^9, 3.903271240678432*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f91923da-1529-4c89-a308-ddeb5ab01476"],

Cell[BoxData[
 RowBox[{"3", "+", 
  RowBox[{"3", " ", 
   SqrtBox["3"]}]}]], "Output",
 CellChangeTimes->{{3.903271242979121*^9, 3.903271256542055*^9}, 
   3.903354899148291*^9, 3.903355603556997*^9, {3.903355664806423*^9, 
   3.9033556747772913`*^9}, 3.9034399096463614`*^9, 3.903442957880797*^9, 
   3.903443020167279*^9, 3.903443073441926*^9, 3.9034482470508633`*^9, 
   3.903453011540811*^9, {3.903565753719491*^9, 3.903565769307772*^9}, 
   3.9035661848194447`*^9, 3.903618785922537*^9, 3.903619471398785*^9, 
   3.9036203866586328`*^9, 3.903620501272678*^9, 3.9036217477309227`*^9, 
   3.903622035096271*^9, 3.903622099391597*^9, 3.903622853422258*^9, 
   3.9036231358371778`*^9, 3.903623232146343*^9, 3.9036254119335003`*^9, 
   3.903625652554375*^9, 3.903628088670512*^9, 3.903634836942051*^9, 
   3.903635360543358*^9, 3.903636136417968*^9, 3.9036371262793493`*^9, {
   3.9036402529481688`*^9, 3.90364030143578*^9}, 3.903640501050103*^9, 
   3.903709523380858*^9, 3.903709714073055*^9, 3.903709799549612*^9, 
   3.903710830888517*^9, 3.903711301936802*^9, 3.903711742502617*^9, 
   3.903712052888431*^9, 3.9039639685201254`*^9, 3.90396432730152*^9, 
   3.904047864174518*^9, 3.904051589925597*^9, 3.904054801573354*^9, 
   3.904062525114456*^9, 3.904072633376177*^9, 3.904073352564668*^9, 
   3.904073393991654*^9, 3.904074091280939*^9, 3.9040781080142093`*^9, 
   3.904254007611489*^9, 3.904256247831486*^9, 3.904329931670318*^9, 
   3.9043320036852913`*^9, {3.904332075493441*^9, 3.904332089951086*^9}, 
   3.904333925113055*^9, 3.904409683604988*^9, 3.904411382407326*^9, 
   3.904416770542213*^9, 3.904417132814636*^9, 3.9063933121348257`*^9, 
   3.906578645877102*^9, 3.906581409215526*^9, 3.906581707036915*^9, 
   3.906582493216779*^9, 3.9065828279586763`*^9, 3.9089954469004397`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"bb35ac0b-bd08-46cf-9f12-18c73d54facc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"l", ",", "k", ",", "h"}], "}"}]], "Input",
 CellChangeTimes->{{3.903271316143672*^9, 3.90327131614666*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"bb18d0b9-f0f2-4f9c-9243-92ee4eb5c59d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"l", ",", "k", ",", "h"}], "}"}]], "Output",
 CellChangeTimes->{
  3.903271317352366*^9, 3.903354899151475*^9, 3.903355603577611*^9, {
   3.903355664825769*^9, 3.903355674780907*^9}, 3.90343990965053*^9, 
   3.903442957885185*^9, 3.903443020170864*^9, 3.903443073459391*^9, 
   3.903448247054573*^9, 3.903453011544834*^9, {3.903565753723333*^9, 
   3.903565769313368*^9}, 3.9035661848319693`*^9, 3.90361878592718*^9, 
   3.903619471415594*^9, 3.903620386676186*^9, 3.9036205012920327`*^9, 
   3.903621747735064*^9, 3.903622035099993*^9, 3.903622099395371*^9, 
   3.9036228534396133`*^9, 3.903623135854603*^9, 3.903623232150287*^9, 
   3.903625411939527*^9, 3.903625652582535*^9, 3.903628088674535*^9, 
   3.903634836946636*^9, 3.903635360547126*^9, 3.903636136421747*^9, 
   3.903637126284091*^9, {3.903640252952803*^9, 3.9036403014401903`*^9}, 
   3.903640501054981*^9, 3.90370952338523*^9, 3.903709714076799*^9, 
   3.9037097995687428`*^9, 3.903710830894836*^9, 3.903711301941779*^9, 
   3.903711742509975*^9, 3.9037120528943458`*^9, 3.9039639685982494`*^9, 
   3.903964327348433*^9, 3.9040478641810904`*^9, 3.904051589938465*^9, 
   3.904054801580008*^9, 3.904062525118491*^9, 3.904072633380148*^9, 
   3.904073352568842*^9, 3.904073393995722*^9, 3.9040740913042593`*^9, 
   3.904078108018465*^9, 3.90425400762862*^9, 3.904256247835708*^9, 
   3.904329931676277*^9, 3.904332003690329*^9, {3.904332075497421*^9, 
   3.904332089965665*^9}, 3.904333925129934*^9, 3.90440968362293*^9, 
   3.904411382411301*^9, 3.904416770546321*^9, 3.904417132819552*^9, 
   3.906393359376453*^9, 3.906578645881745*^9, 3.906581444696441*^9, 
   3.906581707054041*^9, 3.906582493222077*^9, 3.906582827962269*^9, 
   3.908995446906027*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"cd929094-12d9-4437-bee8-157be42c5c08"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.903271372923781*^9, 3.903271372927354*^9}, {
  3.906581680247036*^9, 3.906581680507096*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"ac53de15-b09f-4347-bb49-ce2987d90a90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Head", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.903271407058744*^9, 3.903271409616066*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"0608898b-6e81-4215-8f83-272cc716a500"],

Cell[BoxData["Symbol"], "Output",
 CellChangeTimes->{
  3.903271410015586*^9, 3.903354899175624*^9, 3.903355603584855*^9, {
   3.903355664832504*^9, 3.903355674803808*^9}, 3.903439909669176*^9, 
   3.903442957902482*^9, 3.903443020190864*^9, 3.903443073466289*^9, 
   3.90344824707656*^9, 3.903453011562941*^9, {3.903565753740129*^9, 
   3.90356576933311*^9}, 3.9035661848490453`*^9, 3.90361878593511*^9, 
   3.9036194714222383`*^9, 3.903620386683371*^9, 3.903620501299718*^9, 
   3.903621747755349*^9, 3.903622035117119*^9, 3.903622099415203*^9, 
   3.903622853446834*^9, 3.903623135862042*^9, 3.903623232171782*^9, 
   3.903625411951624*^9, 3.903625652592502*^9, 3.903628088695612*^9, 
   3.9036348369532633`*^9, 3.903635360569449*^9, 3.903636136448063*^9, 
   3.903637126307369*^9, {3.903640252971274*^9, 3.903640301446274*^9}, 
   3.903640501076188*^9, 3.903709523391754*^9, 3.903709714098713*^9, 
   3.903709799575296*^9, 3.903710830933032*^9, 3.903711301966311*^9, 
   3.903711742541834*^9, 3.9037120529033833`*^9, 3.9039639686612062`*^9, 
   3.903964327411375*^9, 3.9040478641983433`*^9, 3.9040515899458437`*^9, 
   3.904054801600964*^9, 3.904062525139382*^9, 3.904072633406528*^9, 
   3.904073352593904*^9, 3.904073394022599*^9, 3.904074091311742*^9, 
   3.904078108036527*^9, 3.904254007649424*^9, 3.904256247855468*^9, 
   3.904329931694816*^9, 3.90433200369705*^9, {3.904332075517737*^9, 
   3.904332089984295*^9}, 3.904333925149598*^9, 3.904409683644252*^9, 
   3.904411382432128*^9, 3.904416770565117*^9, 3.9044171328263893`*^9, 
   3.906393537485255*^9, 3.906578645897519*^9, 3.906581707073698*^9, 
   3.9065824932314367`*^9, 3.906582827985297*^9, 3.90899544692348*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"091018e0-ea28-4153-a1f6-5ee207255050"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.2 Built-in Functions", "Subsection",
 CellChangeTimes->{{3.906578817305273*^9, 
  3.906578833874742*^9}},ExpressionUUID->"8d345e4a-dc30-4ab1-8ff3-\
f3c0d7393801"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomInteger", "[", "]"}]], "Input",
 CellChangeTimes->{{3.903355458132005*^9, 3.903355458133973*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"dc54ab5f-7906-494b-b5d7-8604fb9dad96"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.9033554594481564`*^9, 3.903355603590873*^9, {3.90335566483593*^9, 
   3.9033556748078423`*^9}, 3.903439909672643*^9, 3.903442957918055*^9, 
   3.903443020195115*^9, 3.903443073469854*^9, 3.903448247080851*^9, 
   3.903453011568709*^9, {3.903565753745637*^9, 3.903565769338648*^9}, 
   3.903566184854342*^9, 3.903618785950984*^9, 3.903619471425708*^9, 
   3.9036203866892853`*^9, 3.903620501303344*^9, 3.903621747759838*^9, 
   3.903622035121484*^9, 3.903622099421013*^9, 3.903622853454608*^9, 
   3.903623135865899*^9, 3.903623232176503*^9, 3.9036254119796247`*^9, 
   3.903625652624008*^9, 3.90362808870052*^9, 3.90363483697186*^9, 
   3.903635360573942*^9, 3.9036361364526873`*^9, 3.90363712631103*^9, {
   3.90364025297548*^9, 3.903640301465434*^9}, 3.903640501080008*^9, 
   3.903709523410651*^9, 3.903709714103224*^9, 3.903709799579237*^9, 
   3.903710830938342*^9, 3.9037113019708*^9, 3.903711742570813*^9, 
   3.9037120529280376`*^9, 3.903963968724192*^9, 3.903964327442624*^9, 
   3.904047864213185*^9, 3.904051589949687*^9, 3.904054801605042*^9, 
   3.904062525144166*^9, 3.9040726334110937`*^9, 3.904073352618622*^9, 
   3.904073394027351*^9, 3.904074091315738*^9, 3.904078108041565*^9, 
   3.9042540076540813`*^9, 3.90425624786131*^9, 3.904329931710059*^9, 
   3.904332003712807*^9, {3.904332075522486*^9, 3.904332089989031*^9}, 
   3.9043339251544447`*^9, 3.904409683649251*^9, 3.904411382436879*^9, 
   3.904416770570109*^9, 3.904417132833527*^9, 3.906393645929439*^9, 
   3.906578645910396*^9, 3.906581707078634*^9, 3.906582493246802*^9, 
   3.906582827989668*^9, 3.908995446937217*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"108fdbb3-118a-49b2-986e-917d5a5e9f0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", 
   RowBox[{"90", " ", "Degree"}], "]"}], "+", 
  RowBox[{"Cos", "[", 
   RowBox[{"0", " ", "Degree"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.903355501037705*^9, 3.903355501044367*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"37393613-1c55-437a-9f9f-f3aa986c8ad0"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.903355501963942*^9, 3.903355603604458*^9, {3.903355664856769*^9, 
   3.903355674821373*^9}, 3.90343990967603*^9, 3.903442957922339*^9, 
   3.90344302019881*^9, 3.903443073488254*^9, 3.903448247097431*^9, 
   3.9034530115814466`*^9, {3.9035657537591248`*^9, 3.903565769344883*^9}, 
   3.903566184866599*^9, 3.903618785956615*^9, 3.903619471443892*^9, 
   3.903620386706265*^9, 3.903620501323158*^9, 3.9036217477640963`*^9, 
   3.903622035137757*^9, 3.903622099437285*^9, 3.903622853470752*^9, 
   3.9036231358854737`*^9, 3.9036232321804256`*^9, 3.903625411985806*^9, 
   3.9036256526324677`*^9, 3.903628088704608*^9, 3.903634836976042*^9, 
   3.903635360577699*^9, 3.9036361364563932`*^9, 3.903637126315938*^9, {
   3.903640252983611*^9, 3.903640301469921*^9}, 3.903640501083755*^9, 
   3.9037095234150968`*^9, 3.903709714106966*^9, 3.903709799601347*^9, 
   3.9037108309435253`*^9, 3.9037113019753647`*^9, 3.903711742576941*^9, 
   3.903712052934876*^9, 3.903963968786689*^9, 3.903964327489512*^9, 
   3.904047864217592*^9, 3.90405158996384*^9, 3.904054801608966*^9, 
   3.904062525148232*^9, 3.904072633435577*^9, 3.904073352623497*^9, 
   3.9040733940313673`*^9, 3.904074091338447*^9, 3.904078108055861*^9, 
   3.904254007669003*^9, 3.90425624787592*^9, 3.9043299317150097`*^9, 
   3.90433200371859*^9, {3.904332075526363*^9, 3.904332089993063*^9}, 
   3.904333925169659*^9, 3.90440968365362*^9, 3.904411382440863*^9, 
   3.9044167705742188`*^9, 3.90441713285121*^9, 3.906393738951064*^9, 
   3.90657864591768*^9, 3.9065817070824833`*^9, 3.906582493252101*^9, 
   3.9065828279932528`*^9, 3.908995446941449*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"01d8387c-5eb5-4f7b-b913-ce9977ec94a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Power", "[", 
  RowBox[{"2", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.9063937432101736`*^9, 3.906393746382283*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"87f51368-cd2b-446a-9f4b-82b8c281558e"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.906393747217169*^9, 3.906578645928627*^9, 
  3.906581707085943*^9, 3.906582493257485*^9, 3.9065828279967823`*^9, 
  3.908995446956362*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"99fc05d6-0e93-4036-8b3c-6b3346e0678f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"d", "=", 
  RowBox[{"Power", "[", 
   RowBox[{"2", ",", "2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"F", "=", 
   RowBox[{
    RowBox[{"Sin", "[", "\[Pi]", "]"}], "+", 
    RowBox[{"Cos", "[", "\[Pi]", "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.903355561204673*^9, 3.903355569888811*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"9f88acf7-0743-4b69-84f0-fe31718b5193"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{{3.903355566816214*^9, 3.903355570992004*^9}, 
   3.9033556036084557`*^9, {3.903355664861062*^9, 3.903355674825667*^9}, 
   3.9034399096793957`*^9, 3.903442957926317*^9, 3.903443020202429*^9, 
   3.9034430734927473`*^9, 3.903448247101919*^9, 3.90345301158674*^9, {
   3.903565753764214*^9, 3.90356576936124*^9}, 3.903566184870951*^9, 
   3.903618785970492*^9, 3.9036194714482713`*^9, 3.903620386710836*^9, 
   3.903620501327858*^9, 3.903621747767859*^9, 3.903622035143229*^9, 
   3.903622099442437*^9, 3.9036228534755287`*^9, 3.903623135890161*^9, 
   3.903623232186416*^9, 3.903625412015513*^9, 3.90362565265996*^9, 
   3.903628088708685*^9, 3.903634836992777*^9, 3.9036353605815372`*^9, 
   3.903636136460264*^9, 3.903637126337315*^9, {3.90364025299799*^9, 
   3.903640301488309*^9}, 3.903640501105011*^9, 3.90370952343265*^9, 
   3.903709714110746*^9, 3.903709799607689*^9, 3.903710830976827*^9, 
   3.9037113019964256`*^9, 3.903711742606592*^9, 3.90371205295934*^9, 
   3.903963968834144*^9, 3.903964327521222*^9, 3.904047864230879*^9, 
   3.904051589968621*^9, 3.904054801629488*^9, 3.9040625251550713`*^9, 
   3.9040726334403667`*^9, 3.904073352628673*^9, 3.904073394035572*^9, 
   3.904074091343495*^9, 3.9040781080611897`*^9, 3.904254007673957*^9, 
   3.90425624788114*^9, 3.904329931730063*^9, 3.904332003733163*^9, {
   3.904332075530271*^9, 3.904332089997109*^9}, 3.904333925174578*^9, 
   3.904409683657543*^9, 3.90441138244491*^9, 3.904416770578348*^9, 
   3.904417132857416*^9, 3.906474250617636*^9, 3.906578645936241*^9, 
   3.906580854784844*^9, 3.906581707104189*^9, 3.906582493263259*^9, 
   3.906582828015998*^9, 3.908995446961073*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"eef94c36-f6c4-4b87-9a31-912437399fcc"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{{3.903355566816214*^9, 3.903355570992004*^9}, 
   3.9033556036084557`*^9, {3.903355664861062*^9, 3.903355674825667*^9}, 
   3.9034399096793957`*^9, 3.903442957926317*^9, 3.903443020202429*^9, 
   3.9034430734927473`*^9, 3.903448247101919*^9, 3.90345301158674*^9, {
   3.903565753764214*^9, 3.90356576936124*^9}, 3.903566184870951*^9, 
   3.903618785970492*^9, 3.9036194714482713`*^9, 3.903620386710836*^9, 
   3.903620501327858*^9, 3.903621747767859*^9, 3.903622035143229*^9, 
   3.903622099442437*^9, 3.9036228534755287`*^9, 3.903623135890161*^9, 
   3.903623232186416*^9, 3.903625412015513*^9, 3.90362565265996*^9, 
   3.903628088708685*^9, 3.903634836992777*^9, 3.9036353605815372`*^9, 
   3.903636136460264*^9, 3.903637126337315*^9, {3.90364025299799*^9, 
   3.903640301488309*^9}, 3.903640501105011*^9, 3.90370952343265*^9, 
   3.903709714110746*^9, 3.903709799607689*^9, 3.903710830976827*^9, 
   3.9037113019964256`*^9, 3.903711742606592*^9, 3.90371205295934*^9, 
   3.903963968834144*^9, 3.903964327521222*^9, 3.904047864230879*^9, 
   3.904051589968621*^9, 3.904054801629488*^9, 3.9040625251550713`*^9, 
   3.9040726334403667`*^9, 3.904073352628673*^9, 3.904073394035572*^9, 
   3.904074091343495*^9, 3.9040781080611897`*^9, 3.904254007673957*^9, 
   3.90425624788114*^9, 3.904329931730063*^9, 3.904332003733163*^9, {
   3.904332075530271*^9, 3.904332089997109*^9}, 3.904333925174578*^9, 
   3.904409683657543*^9, 3.90441138244491*^9, 3.904416770578348*^9, 
   3.904417132857416*^9, 3.906474250617636*^9, 3.906578645936241*^9, 
   3.906580854784844*^9, 3.906581707104189*^9, 3.906582493263259*^9, 
   3.906582828015998*^9, 3.908995446961622*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"43014552-6e3c-4e28-8c3c-cdd3167307f0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"d", ",", "F"}], "]"}]], "Input",
 CellChangeTimes->{{3.903355629342124*^9, 3.903355659333811*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"ad8ab30b-f2fa-474c-ac17-f19c284e48c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "RandomReal", "]"}]], "Input",
 CellChangeTimes->{{3.90343990555513*^9, 3.9034399055581627`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"25510e0b-ca15-4379-8f6f-93c4203f6078"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.903439909699615*^9, 3.9034429579480333`*^9, 3.903443020226542*^9, 
   3.903443073513275*^9, 3.903448247108747*^9, 3.903453011603549*^9, {
   3.903565753780575*^9, 3.9035657693817596`*^9}, 3.903566184886975*^9, 
   3.903618785991047*^9, 3.9036194714699917`*^9, 3.903620386717794*^9, 
   3.9036205013352413`*^9, 3.903621747789648*^9, 3.903622035150359*^9, 
   3.903622099449539*^9, 3.90362285348265*^9, 3.903623135912059*^9, 
   3.903623232209014*^9, 3.903625412049467*^9, 3.903625652694321*^9, 
   3.903628088731374*^9, 3.9036348370004196`*^9, 3.903635360605226*^9, 
   3.903636136484839*^9, 3.9036371263447*^9, {3.903640253016835*^9, 
   3.903640301495949*^9}, 3.90364050111277*^9, 3.903709523440114*^9, 
   3.9037097141336803`*^9, 3.903709799632582*^9, 3.903710830987329*^9, 
   3.903711302024891*^9, 3.903711742638094*^9, 3.903712052988895*^9, 
   3.903963968912742*^9, 3.903964327583711*^9, 3.904047864238419*^9, 
   3.904051589985363*^9, 3.9040548016383142`*^9, 3.904062525176444*^9, 
   3.904072633448117*^9, 3.904073352656207*^9, 3.904073394068431*^9, 
   3.904074091352313*^9, 3.9040781080689993`*^9, 3.904254007684411*^9, 
   3.9042562478888617`*^9, 3.904329931738695*^9, 3.904332003741194*^9, {
   3.904332075551471*^9, 3.904332090018998*^9}, 3.9043339251819577`*^9, 
   3.904409683678147*^9, 3.904411382467056*^9, 3.904416770598351*^9, 
   3.904417132883931*^9, 3.906474273050647*^9, 3.906578645951613*^9, 
   3.906581707122717*^9, 3.906582493284023*^9, 3.9065828280378857`*^9, 
   3.908995446973475*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"a7476cba-2c3b-4ce2-af4d-79e0d12f2ea8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"RandomReal", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"RandomReal", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.90344293400201*^9, 3.9034429745724783`*^9}, {
  3.9034430498452387`*^9, 3.903443068829821*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"bfcaebdf-8815-447e-ac32-2f4aa3e251d0"],

Cell[BoxData["0.07558152017977737`"], "Output",
 CellChangeTimes->{{3.9034429580008783`*^9, 3.903442976162195*^9}, 
   3.903443020239891*^9, {3.903443054826824*^9, 3.903443073516955*^9}, 
   3.903448247127722*^9, 3.903453011616585*^9, {3.903565753795001*^9, 
   3.9035657693872437`*^9}, 3.903566184900703*^9, 3.903618785995739*^9, 
   3.903619471473613*^9, 3.903620386737832*^9, 3.903620501356592*^9, 
   3.903621747807353*^9, 3.903622035166038*^9, 3.903622099467527*^9, 
   3.903622853499758*^9, 3.90362313591636*^9, 3.90362323221332*^9, 
   3.903625412056116*^9, 3.903625652700972*^9, 3.9036280887486353`*^9, 
   3.903634837004077*^9, 3.903635360622802*^9, 3.9036361364889183`*^9, 
   3.903637126349269*^9, {3.903640253022016*^9, 3.903640301501502*^9}, 
   3.903640501116619*^9, 3.903709523446373*^9, 3.9037097141377177`*^9, 
   3.903709799651942*^9, 3.903710830993705*^9, 3.903711302029859*^9, 
   3.90371174264395*^9, 3.903712052995005*^9, 3.903963968975597*^9, 
   3.903964327631032*^9, 3.90404786424234*^9, 3.904051589998396*^9, 
   3.904054801642497*^9, 3.9040625251813097`*^9, 3.904072633474893*^9, 
   3.904073352661297*^9, 3.904073394091856*^9, 3.904074091375437*^9, 
   3.904078108083068*^9, 3.904254007699758*^9, 3.9042562479057817`*^9, 
   3.904329931745397*^9, 3.904332003745246*^9, {3.904332075569034*^9, 
   3.904332090034542*^9}, 3.904333925198772*^9, 3.90440968368222*^9, 
   3.904411382484977*^9, 3.904416770614623*^9, 3.904417132889641*^9, 
   3.90647437404117*^9, 3.906578645963466*^9, 3.906581707127448*^9, 
   3.906582493290026*^9, 3.906582828042475*^9, 3.908995446987631*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"6c98347e-849f-4690-a4e5-032180bf3fac"],

Cell[BoxData["0.2292226458331050515900877194295094351688174833175019688963`30.\
"], "Output",
 CellChangeTimes->{{3.9034429580008783`*^9, 3.903442976162195*^9}, 
   3.903443020239891*^9, {3.903443054826824*^9, 3.903443073516955*^9}, 
   3.903448247127722*^9, 3.903453011616585*^9, {3.903565753795001*^9, 
   3.9035657693872437`*^9}, 3.903566184900703*^9, 3.903618785995739*^9, 
   3.903619471473613*^9, 3.903620386737832*^9, 3.903620501356592*^9, 
   3.903621747807353*^9, 3.903622035166038*^9, 3.903622099467527*^9, 
   3.903622853499758*^9, 3.90362313591636*^9, 3.90362323221332*^9, 
   3.903625412056116*^9, 3.903625652700972*^9, 3.9036280887486353`*^9, 
   3.903634837004077*^9, 3.903635360622802*^9, 3.9036361364889183`*^9, 
   3.903637126349269*^9, {3.903640253022016*^9, 3.903640301501502*^9}, 
   3.903640501116619*^9, 3.903709523446373*^9, 3.9037097141377177`*^9, 
   3.903709799651942*^9, 3.903710830993705*^9, 3.903711302029859*^9, 
   3.90371174264395*^9, 3.903712052995005*^9, 3.903963968975597*^9, 
   3.903964327631032*^9, 3.90404786424234*^9, 3.904051589998396*^9, 
   3.904054801642497*^9, 3.9040625251813097`*^9, 3.904072633474893*^9, 
   3.904073352661297*^9, 3.904073394091856*^9, 3.904074091375437*^9, 
   3.904078108083068*^9, 3.904254007699758*^9, 3.9042562479057817`*^9, 
   3.904329931745397*^9, 3.904332003745246*^9, {3.904332075569034*^9, 
   3.904332090034542*^9}, 3.904333925198772*^9, 3.90440968368222*^9, 
   3.904411382484977*^9, 3.904416770614623*^9, 3.904417132889641*^9, 
   3.90647437404117*^9, 3.906578645963466*^9, 3.906581707127448*^9, 
   3.906582493290026*^9, 3.906582828042475*^9, 3.9089954469882936`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"2841a15e-f53a-469b-a485-c4f2057d07c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "Power", "]"}]], "Input",
 CellChangeTimes->{{3.9034482290886083`*^9, 3.903448229091556*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"e83a6a78-90c1-428e-99dc-7c80650c0924"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.903448247132766*^9, 3.903453011621825*^9, {3.903565753799692*^9, 
   3.903565769405895*^9}, 3.903566184905774*^9, 3.903618786001212*^9, 
   3.903619471480844*^9, 3.903620386742986*^9, 3.903620501361628*^9, 
   3.903621747812776*^9, 3.903622035171294*^9, 3.903622099473076*^9, 
   3.903622853505383*^9, 3.903623135921544*^9, 3.903623232220086*^9, 
   3.903625412063595*^9, 3.903625652731822*^9, 3.9036280887547817`*^9, 
   3.9036348370221252`*^9, 3.903635360628083*^9, 3.903636136493552*^9, 
   3.903637126370062*^9, {3.9036402530365257`*^9, 3.903640301520418*^9}, 
   3.903640501137323*^9, 3.9037095234642143`*^9, 3.903709714142127*^9, 
   3.903709799656989*^9, 3.903710831028062*^9, 3.9037113020535192`*^9, 
   3.903711742674246*^9, 3.9037120530218477`*^9, 3.903963969054921*^9, 
   3.903964327677924*^9, 3.904047864258576*^9, 3.904051590003998*^9, 
   3.904054801661635*^9, 3.9040625251860933`*^9, 3.90407263348037*^9, 
   3.904073352686108*^9, 3.90407339409763*^9, 3.9040740913812313`*^9, 
   3.904078108089063*^9, 3.904254007705529*^9, 3.904256247911695*^9, 
   3.9043299317605457`*^9, 3.9043320037618713`*^9, {3.9043320755747013`*^9, 
   3.904332090040267*^9}, 3.904333925204674*^9, 3.90440968368676*^9, 
   3.9044113824905667`*^9, 3.904416770620187*^9, 3.90441713289867*^9, 
   3.906474700874165*^9, 3.906578645970644*^9, 3.9065817071317377`*^9, 
   3.906582493298243*^9, 3.906582828046852*^9, 3.908995446992062*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"f166dcaf-a372-431f-bc64-94cc815baa18"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.3 Dates and Time", "Subsection",
 CellChangeTimes->{{3.906578866006105*^9, 
  3.906578925311532*^9}},ExpressionUUID->"d926aac5-7afd-4516-b25f-\
46b31aea4350"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateObject", "[", "]"}]], "Input",
 CellChangeTimes->{{3.903617716306876*^9, 3.903617768214789*^9}, {
  3.903618800768634*^9, 3.903618804620398*^9}, {3.903618929399467*^9, 
  3.903618934154443*^9}, {3.903619102912611*^9, 3.903619105425998*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"ead46167-81fb-4c27-8879-91bb94099325"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"\"Tue 14 Nov 2023 18:04:06\"", 
     StyleBox[
      RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
        StyleBox[
         RowBox[{"-", "6"}], NumberMarks -> False, StripOnInput -> False]}], 
      FontColor -> GrayLevel[0.5]]}], 
   RowBox[{"DateObject", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{
          "2023", ",", "11", ",", "14", ",", "18", ",", "4", ",", 
           "6.993059`7.597242179894424"}], "}"}], ",", "\"Instant\"", ",", 
       "\"Gregorian\"", ",", 
       RowBox[{"-", "6.`"}]}], "]"}]},
  "DateObject",
  Editable->False]], "Output",
 CellChangeTimes->{{3.903617726022543*^9, 3.903617768699767*^9}, {
   3.90361877343312*^9, 3.903618786265052*^9}, 3.903618934374009*^9, 
   3.903619105840454*^9, 3.903619471884473*^9, 3.903620387147637*^9, 
   3.903620501764016*^9, 3.903621748224311*^9, 3.903622035567071*^9, 
   3.903622099874178*^9, 3.9036228539078217`*^9, 3.90362313633204*^9, 
   3.903623232620988*^9, 3.903625412341569*^9, 3.903625653011055*^9, 
   3.903628089158045*^9, 3.903634837240495*^9, 3.903635361030072*^9, 
   3.903636136898486*^9, 3.903637126575757*^9, {3.903640253242442*^9, 
   3.903640301722399*^9}, 3.903640501338037*^9, 3.9037095237180758`*^9, 
   3.90370971454214*^9, 3.903709800060465*^9, 3.903710831289524*^9, 
   3.903711302260692*^9, 3.903711742936801*^9, 3.903712053264357*^9, 
   3.903963969802909*^9, 3.9039643283698845`*^9, 3.904047864461069*^9, 
   3.904051590420938*^9, 3.904054801875819*^9, 3.904062525602753*^9, 
   3.904072633896318*^9, 3.904073352890152*^9, 3.9040733945014544`*^9, 
   3.904074091798885*^9, 3.904078108513183*^9, 3.904254008140025*^9, 
   3.904256248313817*^9, 3.904329931978697*^9, 3.904332003768428*^9, {
   3.904332075979312*^9, 3.904332090432929*^9}, 3.904333925637862*^9, 
   3.9044096841103573`*^9, 3.904411382894555*^9, 3.904416771027748*^9, 
   3.904417133322762*^9, 3.906474880059332*^9, 3.906578646177273*^9, 
   3.906581707536001*^9, 3.9065824935015163`*^9, 3.906582828448673*^9, 
   3.9089954472391853`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"e29825b2-75f5-4015-8c39-4c6a8d04e49f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Tomorrow"], "Input",
 CellChangeTimes->{{3.903617785223377*^9, 3.903617787409535*^9}, {
  3.90361945087254*^9, 3.9036194553643293`*^9}, {3.90362014336572*^9, 
  3.90362014543429*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"f75fe09e-1fb3-41d6-90a3-13a646fe12d4"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"\"Wed 15 Nov 2023\""}], 
   RowBox[{"DateObject", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{"2023", ",", "11", ",", "15"}], "}"}], ",", "\"Day\""}], 
     "]"}]},
  "DateObject",
  Editable->False]], "Output",
 CellChangeTimes->{
  3.903617787856781*^9, 3.903618786271436*^9, {3.903619455847623*^9, 
   3.90361947188929*^9}, 3.90362014596928*^9, 3.903620387152788*^9, 
   3.90362050176897*^9, 3.90362174822943*^9, 3.9036220355720453`*^9, 
   3.903622099879374*^9, 3.903622853913156*^9, 3.903623136336546*^9, 
   3.903623232626231*^9, 3.903625412383835*^9, 3.903625653051605*^9, 
   3.903628089163473*^9, 3.903634837245888*^9, 3.903635361035549*^9, 
   3.903636136903915*^9, 3.903637126581178*^9, {3.903640253251757*^9, 
   3.9036403017272787`*^9}, 3.903640501343732*^9, 3.903709523723839*^9, 
   3.903709714547537*^9, 3.903709800065937*^9, 3.9037108313070807`*^9, 
   3.9037113022667437`*^9, 3.903711742979597*^9, 3.903712053274617*^9, 
   3.9039639698865976`*^9, 3.903964328448513*^9, 3.904047864467031*^9, 
   3.904051590426477*^9, 3.904054801881442*^9, 3.90406252560855*^9, 
   3.904072633902492*^9, 3.904073352895976*^9, 3.904073394506943*^9, 
   3.904074091804474*^9, 3.9040781085191927`*^9, 3.904254008146047*^9, 
   3.90425624831998*^9, 3.904329931987417*^9, 3.9043320037838383`*^9, {
   3.904332075985069*^9, 3.90433209043885*^9}, 3.904333925643701*^9, 
   3.904409684115726*^9, 3.904411382900178*^9, 3.904416771033413*^9, 
   3.904417133336935*^9, 3.906474993955043*^9, 3.906578646187777*^9, 
   3.906581707540555*^9, 3.90658249350764*^9, 3.906582828454609*^9, 
   3.90899544724356*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"2673c6c7-215f-45b6-becf-f71a2f161090"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateString", "[", 
  RowBox[{"DateObject", "[", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "6", ",", "10"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.903620390862832*^9, 3.903620425402358*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"c2b08d42-ce1f-4d8f-9111-ed2fb8547a5a"],

Cell[BoxData["\<\"Wed 10 Jun 2020\"\>"], "Output",
 CellChangeTimes->{
  3.903620426351756*^9, 3.9036205017841268`*^9, 3.9036217482470317`*^9, 
   3.903622035588005*^9, 3.903622099897786*^9, 3.9036228539298077`*^9, 
   3.903623136351019*^9, 3.903623232646954*^9, 3.903625412391364*^9, 
   3.903625653058265*^9, 3.9036280891810083`*^9, 3.903634837264352*^9, 
   3.9036353610532103`*^9, 3.903636136922666*^9, 3.903637126602982*^9, {
   3.903640253266908*^9, 3.903640301745811*^9}, 3.903640501362532*^9, 
   3.903709523741596*^9, 3.903709714566001*^9, 3.903709800085278*^9, 
   3.903710831348401*^9, 3.903711302289485*^9, 3.903711742986186*^9, 
   3.903712053300482*^9, 3.9039639699493256`*^9, 3.903964328496096*^9, 
   3.904047864482177*^9, 3.904051590440133*^9, 3.9040548018991013`*^9, 
   3.904062525627092*^9, 3.904072633922521*^9, 3.904073352919008*^9, 
   3.9040733945298367`*^9, 3.904074091829849*^9, 3.904078108533325*^9, 
   3.904254008162512*^9, 3.90425624833585*^9, 3.904329932002303*^9, 
   3.9043320037886677`*^9, {3.904332076002434*^9, 3.9043320904536967`*^9}, 
   3.904333925659659*^9, 3.9044096841327677`*^9, 3.904411382919877*^9, 
   3.904416771049617*^9, 3.904417133356719*^9, 3.906475008836417*^9, 
   3.90657864619941*^9, 3.906581707554641*^9, 3.9065824935225563`*^9, 
   3.906582828479271*^9, 3.908995447256518*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"93d0b966-b52e-4c27-ba80-1bf5cdc1b591"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DateString", "[", 
  RowBox[{"DateObject", "[", 
   RowBox[{"Today", ",", 
    RowBox[{"CalendarType", "\[Rule]", "\"\<Julian\>\""}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DateString", "[", 
  RowBox[{"DateObject", "[", 
   RowBox[{"Today", ",", 
    RowBox[{"CalendarType", "\[Rule]", "\"\<Jewish\>\""}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.903620450446253*^9, 3.903620488172016*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"f8cd94ef-ace2-4450-b69f-d4caac0cd332"],

Cell[BoxData["\<\"Tue 1 Nov 2023\"\>"], "Output",
 CellChangeTimes->{
  3.9036204580800858`*^9, 3.90362050179352*^9, 3.903621748257618*^9, 
   3.9036220355925198`*^9, 3.903622099907243*^9, 3.903622853936844*^9, 
   3.903623136355978*^9, 3.903623232655918*^9, 3.903625412420539*^9, 
   3.903625653096076*^9, 3.903628089186765*^9, 3.903634837268838*^9, 
   3.903635361057864*^9, 3.903636136927443*^9, 3.903637126607284*^9, {
   3.9036402532720838`*^9, 3.903640301752197*^9}, 3.903640501367156*^9, 
   3.903709523746359*^9, 3.9037097145705028`*^9, 3.903709800090096*^9, 
   3.903710831354002*^9, 3.903711302295162*^9, 3.903711743017852*^9, 
   3.903712053306875*^9, 3.9039639700122485`*^9, 3.903964328527382*^9, 
   3.9040478644874496`*^9, 3.904051590445051*^9, 3.904054801904011*^9, 
   3.904062525632078*^9, 3.90407263392736*^9, 3.904073352923881*^9, 
   3.904073394546514*^9, 3.904074091838924*^9, 3.904078108543954*^9, 
   3.904254008170315*^9, 3.904256248345976*^9, 3.904329932013035*^9, 
   3.904332003792728*^9, {3.904332076007242*^9, 3.904332090458651*^9}, 
   3.904333925664671*^9, 3.904409684138654*^9, 3.904411382924764*^9, 
   3.9044167710544252`*^9, 3.90441713336699*^9, 3.906475011659985*^9, 
   3.906578646204707*^9, 3.9065817075591807`*^9, 3.906582493529875*^9, 
   3.906582828486512*^9, 3.908995447261426*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"40f79a63-ca1e-4eec-8540-53f44d8a472c"],

Cell[BoxData["\<\"Yom Shlishi 1 Kislev 5784\"\>"], "Output",
 CellChangeTimes->{
  3.9036204580800858`*^9, 3.90362050179352*^9, 3.903621748257618*^9, 
   3.9036220355925198`*^9, 3.903622099907243*^9, 3.903622853936844*^9, 
   3.903623136355978*^9, 3.903623232655918*^9, 3.903625412420539*^9, 
   3.903625653096076*^9, 3.903628089186765*^9, 3.903634837268838*^9, 
   3.903635361057864*^9, 3.903636136927443*^9, 3.903637126607284*^9, {
   3.9036402532720838`*^9, 3.903640301752197*^9}, 3.903640501367156*^9, 
   3.903709523746359*^9, 3.9037097145705028`*^9, 3.903709800090096*^9, 
   3.903710831354002*^9, 3.903711302295162*^9, 3.903711743017852*^9, 
   3.903712053306875*^9, 3.9039639700122485`*^9, 3.903964328527382*^9, 
   3.9040478644874496`*^9, 3.904051590445051*^9, 3.904054801904011*^9, 
   3.904062525632078*^9, 3.90407263392736*^9, 3.904073352923881*^9, 
   3.904073394546514*^9, 3.904074091838924*^9, 3.904078108543954*^9, 
   3.904254008170315*^9, 3.904256248345976*^9, 3.904329932013035*^9, 
   3.904332003792728*^9, {3.904332076007242*^9, 3.904332090458651*^9}, 
   3.904333925664671*^9, 3.904409684138654*^9, 3.904411382924764*^9, 
   3.9044167710544252`*^9, 3.90441713336699*^9, 3.906475011659985*^9, 
   3.906578646204707*^9, 3.9065817075591807`*^9, 3.906582493529875*^9, 
   3.906582828486512*^9, 3.90899544726458*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"c597abf2-9296-46b4-a543-f5a1d3b116ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateString", "[", 
  RowBox[{"DateObject", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2010", ",", "3", ",", "4"}], "}"}], ",", 
    RowBox[{"TimeZone", "\[Rule]", "\"\<America/Belize\>\""}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.903620568679322*^9, 3.903620575904538*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"725c7dac-7a7a-4462-a28d-043a65700263"],

Cell[BoxData["\<\"Thu 4 Mar 2010\"\>"], "Output",
 CellChangeTimes->{
  3.903620576552683*^9, 3.903621748506815*^9, 3.9036220358234053`*^9, 
   3.903622100150962*^9, 3.903622854179699*^9, 3.903623136595587*^9, 
   3.903623232901092*^9, 3.903625412712924*^9, 3.903625653347765*^9, 
   3.903628089420665*^9, 3.903634837518443*^9, 3.903635361296501*^9, 
   3.903636137174225*^9, 3.903637126846906*^9, {3.9036402535955677`*^9, 
   3.903640301999105*^9}, 3.903640501616578*^9, 3.903709523989612*^9, 
   3.903709714805743*^9, 3.903709800343007*^9, 3.903710831655038*^9, 
   3.903711302578076*^9, 3.903711743284289*^9, 3.903712053650633*^9, 
   3.903963971143802*^9, 3.9039643296110992`*^9, 3.904047864719215*^9, 
   3.9040515906762114`*^9, 3.904054802135167*^9, 3.904062525865782*^9, 
   3.904072634157336*^9, 3.9040733531555643`*^9, 3.904073394774273*^9, 
   3.904074092067903*^9, 3.90407810877308*^9, 3.904254008401879*^9, 
   3.904256248576164*^9, 3.904329932237872*^9, 3.904332003812776*^9, {
   3.904332076238499*^9, 3.904332090690249*^9}, 3.904333925911827*^9, 
   3.904409684380371*^9, 3.9044113831546707`*^9, 3.904416771285144*^9, 
   3.90441713359412*^9, 3.906475057886752*^9, 3.906578646443681*^9, 
   3.90658170780109*^9, 3.906582493776222*^9, 3.90658282873661*^9, 
   3.908995447491715*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"e44fab5f-e281-4660-b706-001281b3ba82"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DateString", "[", 
  RowBox[{"Sunset", "[", 
   RowBox[{"Here", ",", "Now"}], "]"}], "]"}], "\n", 
 RowBox[{"DateString", "[", 
  RowBox[{"Sunrise", "[", 
   RowBox[{"Here", ",", "Yesterday"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.90362061869856*^9, 3.903620624484469*^9}, {
  3.903620889530964*^9, 3.9036209046665087`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"0726f85b-fd08-417a-925f-f53334389c3d"],

Cell[BoxData["\<\"Wed 15 Nov 2023 17:58:17\"\>"], "Output",
 CellChangeTimes->{
  3.9036208457486*^9, 3.903620905282214*^9, 3.903621754975226*^9, 
   3.903622105203855*^9, 3.903622859338453*^9, 3.903623141717823*^9, 
   3.90362323801488*^9, 3.903625417456244*^9, 3.903625657139268*^9, 
   3.903628096025819*^9, 3.903634839463875*^9, 3.9036353640847588`*^9, 
   3.9036361400895653`*^9, 3.903637130584923*^9, {3.903640258008515*^9, 
   3.9036403056271477`*^9}, 3.903640505224335*^9, 3.903709525987897*^9, 
   3.903709717683078*^9, 3.903709803224229*^9, 3.903710838441387*^9, 
   3.903711306552723*^9, 3.903711747338869*^9, 3.903712057770439*^9, 
   3.903964041683043*^9, 3.903964344705821*^9, 3.904047885021832*^9, 
   3.904051598262075*^9, 3.904054806032774*^9, 3.904062531312549*^9, 
   3.904072642300513*^9, 3.904073356940447*^9, 3.904073400248749*^9, 
   3.904074099381647*^9, 3.9040781182292233`*^9, 3.904254023066187*^9, 
   3.904256253648189*^9, 3.904329934129259*^9, 3.904332010206495*^9, 
   3.904332095849811*^9, 3.904333931038168*^9, 3.904409687439166*^9, 
   3.904411386176223*^9, 3.90441677971249*^9, 3.904417138744109*^9, 
   3.906475068829761*^9, 3.906578656050178*^9, 3.906581713448805*^9, 
   3.9065824959546537`*^9, 3.906582836588908*^9, 3.9089956289358883`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"c2230ba4-3e30-4454-a0af-a979d0d790c4"],

Cell[BoxData["\<\"Mon 13 Nov 2023 06:43:20\"\>"], "Output",
 CellChangeTimes->{
  3.9036208457486*^9, 3.903620905282214*^9, 3.903621754975226*^9, 
   3.903622105203855*^9, 3.903622859338453*^9, 3.903623141717823*^9, 
   3.90362323801488*^9, 3.903625417456244*^9, 3.903625657139268*^9, 
   3.903628096025819*^9, 3.903634839463875*^9, 3.9036353640847588`*^9, 
   3.9036361400895653`*^9, 3.903637130584923*^9, {3.903640258008515*^9, 
   3.9036403056271477`*^9}, 3.903640505224335*^9, 3.903709525987897*^9, 
   3.903709717683078*^9, 3.903709803224229*^9, 3.903710838441387*^9, 
   3.903711306552723*^9, 3.903711747338869*^9, 3.903712057770439*^9, 
   3.903964041683043*^9, 3.903964344705821*^9, 3.904047885021832*^9, 
   3.904051598262075*^9, 3.904054806032774*^9, 3.904062531312549*^9, 
   3.904072642300513*^9, 3.904073356940447*^9, 3.904073400248749*^9, 
   3.904074099381647*^9, 3.9040781182292233`*^9, 3.904254023066187*^9, 
   3.904256253648189*^9, 3.904329934129259*^9, 3.904332010206495*^9, 
   3.904332095849811*^9, 3.904333931038168*^9, 3.904409687439166*^9, 
   3.904411386176223*^9, 3.90441677971249*^9, 3.904417138744109*^9, 
   3.906475068829761*^9, 3.906578656050178*^9, 3.906581713448805*^9, 
   3.9065824959546537`*^9, 3.906582836588908*^9, 3.908995628951492*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"ba93b6bb-e904-4a06-aab2-0b70c88b847c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TimeObject", "[", "]"}]], "Input",
 CellChangeTimes->{{3.903621707751655*^9, 3.903621707753905*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"f9878ad1-c460-41c2-9e8e-8b9f98fd637f"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"\"18:07:09\""}], 
   RowBox[{"TimeObject", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{"18", ",", "7", ",", "9.05257`7.709346878437381"}], "}"}], 
       ",", "\"Instant\""}], "]"}]},
  "TimeObject",
  Editable->False]], "Output",
 CellChangeTimes->{
  3.903621708991357*^9, 3.903621757223133*^9, 3.903622106157839*^9, 
   3.90362286055986*^9, 3.903623142654839*^9, 3.903623239300741*^9, 
   3.903625418652078*^9, 3.903625658373851*^9, 3.903628097248242*^9, 
   3.9036348396280746`*^9, 3.903635364290051*^9, 3.903636140255829*^9, 
   3.903637131474452*^9, {3.903640259132841*^9, 3.903640306839313*^9}, 
   3.9036405063248177`*^9, 3.903709526151146*^9, 3.903709717842531*^9, 
   3.903709803387757*^9, 3.903710841079686*^9, 3.903711307941369*^9, 
   3.903711748729864*^9, 3.903712059126044*^9, 3.903964042106994*^9, 
   3.9039643452548804`*^9, 3.9040478866849546`*^9, 3.904051599421109*^9, 
   3.904054807244359*^9, 3.90406253256144*^9, 3.9040726451938267`*^9, 
   3.904073359309328*^9, 3.904073401452058*^9, 3.904074103413768*^9, 
   3.904078119512708*^9, 3.904254024637835*^9, 3.904256254858585*^9, 
   3.9043299342913713`*^9, 3.904332011303428*^9, 3.904332096940493*^9, 
   3.904333935255945*^9, 3.904409687626585*^9, 3.904411386340192*^9, 
   3.904416780651195*^9, 3.904417139659515*^9, 3.906475141094892*^9, 
   3.9065786567814817`*^9, 3.906581714611372*^9, 3.906582496109351*^9, 
   3.9065828377495213`*^9, 3.908995629067253*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"740f286d-5d03-404c-a35c-57aed44085e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateString", "[", 
  RowBox[{"TimeZoneConvert", "[", 
   RowBox[{
    RowBox[{"TimeObject", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"17", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"TimeZone", "->", "\"\<America/Cancun\>\""}]}], "]"}], ",", 
    "\"\<America/Los_Angeles\>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.903621916501312*^9, 3.9036220234604263`*^9}, {
  3.903622089055336*^9, 3.903622094104065*^9}, {3.903622140548231*^9, 
  3.903622146549118*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"954f0535-e661-4a2b-a909-6e34125241b0"],

Cell[BoxData["\<\"14:00:00\"\>"], "Output",
 CellChangeTimes->{{3.903621919688327*^9, 3.903621934836063*^9}, {
   3.903621989807376*^9, 3.90362202375922*^9}, 3.9036221061629148`*^9, {
   3.90362214393423*^9, 3.903622147093445*^9}, 3.9036228605646353`*^9, 
   3.903623142659851*^9, 3.903623239323226*^9, 3.903625418657612*^9, 
   3.903625658379009*^9, 3.903628097253628*^9, 3.903634839632841*^9, 
   3.903635364295233*^9, 3.903636140260882*^9, 3.903637131479274*^9, {
   3.903640259137238*^9, 3.903640306844267*^9}, 3.9036405063298407`*^9, 
   3.903709526155948*^9, 3.903709717848459*^9, 3.903709803392776*^9, 
   3.903710841085359*^9, 3.903711307946852*^9, 3.9037117487350903`*^9, 
   3.903712059131167*^9, 3.9039640421541734`*^9, 3.903964345301755*^9, 
   3.904047886690106*^9, 3.9040515994262743`*^9, 3.904054807249844*^9, 
   3.9040625325666943`*^9, 3.904072645204743*^9, 3.9040733593148117`*^9, 
   3.9040734014575853`*^9, 3.904074103419107*^9, 3.904078119517996*^9, 
   3.904254024643279*^9, 3.904256254864147*^9, 3.904329934306353*^9, 
   3.90433201130802*^9, 3.904332096946065*^9, 3.904333935261518*^9, 
   3.904409687641814*^9, 3.904411386345397*^9, 3.904416780656689*^9, 
   3.904417139665176*^9, 3.9065786567964697`*^9, 3.906581714615879*^9, 
   3.906582496116152*^9, 3.906582837770058*^9, 3.908995629071765*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"328383d9-d8be-43cd-8394-d931bd585eca"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.4 Strings", "Subsection",
 CellChangeTimes->{{3.906578953650561*^9, 
  3.906578963102594*^9}},ExpressionUUID->"50a29b4d-13f3-4ffb-9337-\
3cf62d96adc9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\"\<Hello World\>\"", " ", 
  RowBox[{"(*", 
   RowBox[{"This", " ", "is", " ", "a", " ", "comment"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.903622837326459*^9, 3.903622837329392*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"6bf86bd6-cae1-41ef-a8a2-4840cdd4ef1f"],

Cell[BoxData["\<\"Hello World\"\>"], "Output",
 CellChangeTimes->{{3.903622838638562*^9, 3.9036228605839443`*^9}, 
   3.903623142664116*^9, 3.9036232393282433`*^9, 3.9036254186617804`*^9, 
   3.903625658400496*^9, 3.903628097257967*^9, 3.903634839636599*^9, 
   3.903635364299123*^9, 3.903636140284252*^9, 3.903637131500629*^9, {
   3.903640259140862*^9, 3.903640306869265*^9}, 3.903640506333712*^9, 
   3.903709526181767*^9, 3.903709717865312*^9, 3.903709803418543*^9, 
   3.903710841089421*^9, 3.903711307951109*^9, 3.903711748739265*^9, 
   3.903712059155423*^9, 3.903964042201459*^9, 3.903964345333413*^9, 
   3.904047886693837*^9, 3.904051599430232*^9, 3.904054807267614*^9, 
   3.904062532570737*^9, 3.904072645224964*^9, 3.904073359342456*^9, 
   3.904073401461943*^9, 3.9040741034233828`*^9, 3.904078119533759*^9, 
   3.904254024663097*^9, 3.904256254879798*^9, 3.904329934327417*^9, 
   3.904332011311852*^9, 3.904332096965271*^9, 3.904333935265687*^9, 
   3.904409687661501*^9, 3.904411386367159*^9, 3.904416780660775*^9, 
   3.904417139685241*^9, 3.906475211037924*^9, 3.906578656811222*^9, 
   3.906581714619481*^9, 3.906582496130826*^9, 3.906582837775044*^9, 
   3.908995629114887*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"ae941329-c602-4afb-ab54-1f4c927be609"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToString", "[", "23.423563", "]"}]], "Input",
 CellLabel->"In[44]:=",ExpressionUUID->"e2f33d9b-d916-4655-84d1-80aad12e86be"],

Cell[BoxData["\<\"23.4236\"\>"], "Output",
 CellChangeTimes->{{3.903623116225898*^9, 3.903623142685285*^9}, 
   3.90362323933238*^9, 3.903625418684332*^9, 3.903625658405429*^9, 
   3.903628097277639*^9, 3.903634839660654*^9, 3.90363536432224*^9, 
   3.903636140289036*^9, 3.903637131504914*^9, {3.9036402591443853`*^9, 
   3.90364030687362*^9}, 3.903640506359993*^9, 3.903709526186013*^9, 
   3.903709717869817*^9, 3.903709803423696*^9, 3.903710841121622*^9, 
   3.903711307974558*^9, 3.903711748765428*^9, 3.903712059160533*^9, 
   3.903964042248473*^9, 3.903964345380314*^9, 3.904047886710824*^9, 
   3.904051599434108*^9, 3.904054807272695*^9, 3.904062532588889*^9, 
   3.90407264523088*^9, 3.9040733593472853`*^9, 3.904073401488769*^9, 
   3.904074103427718*^9, 3.904078119539969*^9, 3.904254024668315*^9, 
   3.904256254884779*^9, 3.904329934332347*^9, 3.904332011327255*^9, 
   3.904332096970196*^9, 3.9043339352847223`*^9, 3.904409687666532*^9, 
   3.904411386371993*^9, 3.904416780681617*^9, 3.9044171396902933`*^9, 
   3.9064752668701053`*^9, 3.906578656818169*^9, 3.906581714639614*^9, 
   3.9065824961359577`*^9, 3.906582837779283*^9, 3.908995629125668*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"3ab43cff-d36a-4ea0-aa92-2ffcc7bd82af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "Head", 
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "use", " ", "Head", " ", "to", " ", "know", " ", "what", " ", 
    "type", " ", "of", " ", "object", " ", "is"}], "*)"}]}]], "Input",
 CellChangeTimes->{
  3.903622855974217*^9, {3.9036231004642773`*^9, 3.9036231235972967`*^9}, 
   3.906582233912396*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"12eb4598-fd65-4bb0-8794-10b94d115bc4"],

Cell[BoxData["String"], "Output",
 CellChangeTimes->{{3.9036231210778303`*^9, 3.903623142689872*^9}, 
   3.903623239339574*^9, 3.903625418689274*^9, 3.903625658409624*^9, 
   3.903628097282964*^9, 3.903634839665031*^9, 3.903635364326923*^9, 
   3.903636140293444*^9, 3.903637131508534*^9, {3.903640259153448*^9, 
   3.903640306877367*^9}, 3.903640506364557*^9, 3.903709526189725*^9, 
   3.903709717873566*^9, 3.903709803427652*^9, 3.903710841129945*^9, 
   3.903711307979782*^9, 3.903711748770379*^9, 3.903712059164748*^9, 
   3.903964042295917*^9, 3.903964345411561*^9, 3.904047886718729*^9, 
   3.904051599441376*^9, 3.904054807276825*^9, 3.904062532593889*^9, 
   3.904072645253845*^9, 3.904073359376595*^9, 3.904073401493688*^9, 
   3.904074103432*^9, 3.904078119554137*^9, 3.904254024683413*^9, 
   3.904256254889368*^9, 3.90432993433674*^9, 3.904332011335451*^9, 
   3.9043320969853992`*^9, 3.904333935289782*^9, 3.904409687671008*^9, 
   3.904411386376046*^9, 3.904416780686585*^9, 3.904417139694353*^9, 
   3.906475290610905*^9, 3.9065786568298187`*^9, 3.9065817146440372`*^9, 
   3.906582496140374*^9, 3.906582837802528*^9, 3.908995629142044*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"32606c37-a32c-472b-b445-22139e8b1ac0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\"\<Welcome to Mathematica\>\""], "Input",
 CellChangeTimes->{{3.903623222172984*^9, 3.903623222176303*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"4ad43f8a-6177-4ef0-b3bc-0e0870cf72ae"],

Cell[BoxData["\<\"Welcome to Mathematica\"\>"], "Output",
 CellChangeTimes->{{3.903623223242434*^9, 3.903623239358423*^9}, 
   3.903625418693503*^9, 3.903625658431594*^9, 3.903628097300065*^9, 
   3.903634839668692*^9, 3.903635364330676*^9, 3.9036361403186493`*^9, 
   3.903637131512084*^9, {3.903640259172978*^9, 3.903640306880903*^9}, 
   3.903640506368287*^9, 3.903709526214245*^9, 3.903709717877157*^9, 
   3.903709803452616*^9, 3.90371084115696*^9, 3.903711307983889*^9, 
   3.903711748795953*^9, 3.903712059187936*^9, 3.9039640423427896`*^9, 
   3.9039643454588647`*^9, 3.9040478867322474`*^9, 3.90405159945599*^9, 
   3.904054807296799*^9, 3.9040625325980663`*^9, 3.904072645258636*^9, 
   3.90407335938136*^9, 3.904073401498207*^9, 3.904074103453895*^9, 
   3.904078119559282*^9, 3.904254024687833*^9, 3.9042562549101977`*^9, 
   3.904329934344844*^9, 3.904332011348665*^9, 3.904332096990308*^9, 
   3.904333935305703*^9, 3.904409687688897*^9, 3.904411386399625*^9, 
   3.904416780690569*^9, 3.904417139712514*^9, 3.906475308919181*^9, 
   3.906578656837343*^9, 3.906581714647545*^9, 3.906582496160117*^9, 
   3.906582837807785*^9, 3.908995629146715*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"03ea4b66-e7d3-428d-b993-89af51009604"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AtomQ", "[", 
  "\"\<The sky is blue and tomorrow is expected to rain\>\"", "]"}]], "Input",\

 CellChangeTimes->{{3.903623442166266*^9, 3.90362344216918*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"d29a0c7f-9c51-476c-a47d-5e0560258c80"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.903623443504623*^9, 3.903625418700814*^9, 3.903625658436675*^9, 
   3.903628097305448*^9, 3.9036348396757603`*^9, 3.903635364337796*^9, 
   3.903636140323258*^9, 3.903637131519574*^9, {3.903640259177105*^9, 
   3.903640306887001*^9}, 3.903640506373322*^9, 3.9037095262185793`*^9, 
   3.903709717883545*^9, 3.9037098034572487`*^9, 3.903710841161996*^9, 
   3.903711307990921*^9, 3.903711748800994*^9, 3.903712059193003*^9, 
   3.903964042390151*^9, 3.903964345490112*^9, 3.904047886737447*^9, 
   3.9040515994607487`*^9, 3.904054807301662*^9, 3.904062532602172*^9, 
   3.904072645263412*^9, 3.9040733594056253`*^9, 3.904073401504284*^9, 
   3.904074103459059*^9, 3.904078119574265*^9, 3.904254024691752*^9, 
   3.904256254915281*^9, 3.904329934349815*^9, 3.904332011353257*^9, 
   3.904332096994483*^9, 3.904333935314206*^9, 3.904409687693674*^9, 
   3.904411386404413*^9, 3.9044167806945357`*^9, 3.904417139717689*^9, 
   3.906475419159513*^9, 3.906578656849228*^9, 3.906581714650996*^9, 
   3.90658249616567*^9, 3.906582837812197*^9, 3.9089956291699343`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"87b079d4-04f3-425a-b354-4eb1a98bd6f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Characters", "[", "\"\<Hello World\>\"", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "Function", " ", "that", " ", "breaks", " ", "the", " ", "string", " ", 
    "into", " ", "its", " ", "characters"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.9036235802341213`*^9, 3.903623580237114*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"e2452fb4-1682-412e-bb6a-6ed9fb7b3fea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", ",", "\<\"e\"\>", ",", "\<\"l\"\>", ",", "\<\"l\"\>", 
   ",", "\<\"o\"\>", ",", "\<\" \"\>", ",", "\<\"W\"\>", ",", "\<\"o\"\>", 
   ",", "\<\"r\"\>", ",", "\<\"l\"\>", ",", "\<\"d\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.903623582791399*^9, 3.903625418722076*^9, 3.90362565844099*^9, 
   3.903628097309739*^9, 3.903634839695857*^9, 3.903635364355261*^9, 
   3.903636140327085*^9, 3.9036371315365257`*^9, {3.903640259200311*^9, 
   3.90364030690709*^9}, 3.903640506393594*^9, 3.903709526222361*^9, 
   3.903709717899401*^9, 3.903709803461624*^9, 3.903710841188549*^9, 
   3.903711308012004*^9, 3.9037117488053727`*^9, 3.903712059197791*^9, 
   3.9039640424369903`*^9, 3.9039643455374403`*^9, 3.904047886742094*^9, 
   3.904051599464819*^9, 3.904054807305833*^9, 3.904062532620105*^9, 
   3.904072645286614*^9, 3.904073359410415*^9, 3.90407340152906*^9, 
   3.9040741034832163`*^9, 3.904078119579743*^9, 3.904254024695532*^9, 
   3.904256254919599*^9, 3.904329934366227*^9, 3.904332011366627*^9, 
   3.9043320970120173`*^9, 3.904333935332412*^9, 3.904409687712426*^9, 
   3.904411386408457*^9, 3.904416780714211*^9, 3.904417139736739*^9, 
   3.906475424501457*^9, 3.9065786568549013`*^9, 3.906581714670557*^9, 
   3.906582496180314*^9, 3.906582837819941*^9, 3.90899562917486*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"bcd36c71-488d-4091-afcd-9dbd2dbd2fed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"StringReplace", "[", 
   RowBox[{"\"\<Hello this is a string \>\"", ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<h\>\"", ",", "\"\<H\>\""}], "}"}], "\[Rule]", 
     "\"\<4\>\""}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "This", " ", "function", " ", "repalce", " ", "the", " ", "string", " ", 
     "each", " ", "time", " ", "it", " ", "appears", " ", "for", " ", "rule", 
     " ", "of", " ", "the", " ", "pattern"}], ",", 
    RowBox[{"that", " ", "is", " ", "4"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.903624277036251*^9, 3.903624280996048*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"cad25af9-4a86-4bf8-a6da-3da3b6521d78"],

Cell[BoxData["\<\"4ello t4is is a string \"\>"], "Output",
 CellChangeTimes->{
  3.903624281572616*^9, 3.903625418727439*^9, 3.903625658445331*^9, 
   3.903628097314343*^9, 3.903634839700342*^9, 3.9036353643600407`*^9, 
   3.903636140333901*^9, 3.903637131540891*^9, {3.903640259204653*^9, 
   3.903640306911688*^9}, 3.903640506398405*^9, 3.903709526229596*^9, 
   3.903709717904215*^9, 3.903709803467429*^9, 3.9037108411939383`*^9, 
   3.903711308017309*^9, 3.90371174881136*^9, 3.9037120592024117`*^9, 
   3.903964042484328*^9, 3.903964345568719*^9, 3.90404788675104*^9, 
   3.9040515994688993`*^9, 3.9040548073100443`*^9, 3.904062532625214*^9, 
   3.904072645291892*^9, 3.9040733594146633`*^9, 3.904073401539667*^9, 
   3.904074103488584*^9, 3.904078119584295*^9, 3.904254024703648*^9, 
   3.9042562549281607`*^9, 3.904329934371385*^9, 3.904332011371567*^9, 
   3.904332097020112*^9, 3.904333935339074*^9, 3.904409687717017*^9, 
   3.904411386415078*^9, 3.904416780719352*^9, 3.904417139742137*^9, 
   3.906475470053636*^9, 3.906578656867268*^9, 3.906581714676283*^9, 
   3.906582496185769*^9, 3.906582837840934*^9, 3.90899562917905*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"d2ca04f6-ba99-4660-89c5-8cd2be950402"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToUpperCase", "[", "\"\<hello my name is\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.9036243125679207`*^9, 3.903624312570762*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"082512d8-c0ca-40c8-9021-2bbe99277ecf"],

Cell[BoxData["\<\"HELLO MY NAME IS\"\>"], "Output",
 CellChangeTimes->{
  3.90362431354747*^9, 3.90362541875117*^9, 3.90362565846637*^9, 
   3.903628097331747*^9, 3.903634839704072*^9, 3.90363536436385*^9, 
   3.903636140354045*^9, 3.903637131544428*^9, {3.9036402592081623`*^9, 
   3.903640306932918*^9}, 3.903640506402348*^9, 3.903709526248786*^9, 
   3.903709717908006*^9, 3.903709803487742*^9, 3.903710841220436*^9, 
   3.903711308040698*^9, 3.903711748835229*^9, 3.903712059225389*^9, 
   3.903964042515606*^9, 3.903964345615587*^9, 3.904047886765327*^9, 
   3.904051599484803*^9, 3.904054807328266*^9, 3.904062532643138*^9, 
   3.904072645296339*^9, 3.904073359435463*^9, 3.904073401562767*^9, 
   3.904074103493114*^9, 3.904078119603586*^9, 3.904254024720866*^9, 
   3.9042562549438252`*^9, 3.9043299344011917`*^9, 3.904332011375526*^9, 
   3.904332097034746*^9, 3.9043339353551493`*^9, 3.904409687720917*^9, 
   3.904411386433475*^9, 3.904416780734543*^9, 3.904417139764069*^9, 
   3.906475487304295*^9, 3.906578656872941*^9, 3.906581714689791*^9, 
   3.906582496190124*^9, 3.906582837846407*^9, 3.908995629186324*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"7a77ffe5-d8c2-4fbc-b704-77b45883b494"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToLowerCase", "[", "\"\<HELLO MY NAME IS\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.90362434218572*^9, 3.903624342188572*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"41ae75bb-6fb0-4b34-b5cd-bd2b647afc2e"],

Cell[BoxData["\<\"hello my name is\"\>"], "Output",
 CellChangeTimes->{
  3.9036243435597982`*^9, 3.9036254187562113`*^9, 3.9036256584713798`*^9, 
   3.903628097337087*^9, 3.903634839710351*^9, 3.903635364370061*^9, 
   3.903636140358716*^9, 3.9036371315517693`*^9, {3.903640259211588*^9, 
   3.9036403069374332`*^9}, 3.903640506409448*^9, 3.90370952625312*^9, 
   3.903709717913891*^9, 3.90370980349247*^9, 3.903710841227297*^9, 
   3.903711308045931*^9, 3.9037117488434896`*^9, 3.903712059230904*^9, 
   3.9039640425625205`*^9, 3.903964345647272*^9, 3.904047886770505*^9, 
   3.904051599492538*^9, 3.904054807333137*^9, 3.904062532647948*^9, 
   3.904072645302436*^9, 3.904073359440221*^9, 3.9040734015681*^9, 
   3.904074103497696*^9, 3.904078119608949*^9, 3.90425402472571*^9, 
   3.9042562549488993`*^9, 3.904329934406318*^9, 3.904332011379367*^9, 
   3.904332097039668*^9, 3.904333935360242*^9, 3.904409687725214*^9, 
   3.904411386438317*^9, 3.904416780739416*^9, 3.904417139769279*^9, 
   3.906475488852322*^9, 3.906578656884449*^9, 3.906581714694198*^9, 
   3.906582496196855*^9, 3.906582837867777*^9, 3.908995629190304*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"4e15a6fc-c0d7-4581-90b7-cc22ec06b603"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", 
  RowBox[{
  "\"\<Nice\>\"", ",", "\"\<to\>\"", ",", "\"\<have\>\"", ",", "\"\<you\>\"", 
   ",", "\"\<back\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.903624406439813*^9, 3.9036244064427776`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"c394a2fd-a61e-4254-8e09-7339e69d519b"],

Cell[BoxData["\<\"Nicetohaveyouback\"\>"], "Output",
 CellChangeTimes->{
  3.903624407313617*^9, 3.903625418760456*^9, 3.903625658475587*^9, 
   3.90362809734138*^9, 3.9036348397288103`*^9, 3.9036353643875318`*^9, 
   3.903636140380071*^9, 3.903637131568049*^9, {3.903640259231507*^9, 
   3.903640306955852*^9}, 3.9036405064285603`*^9, 3.903709526256833*^9, 
   3.903709717929592*^9, 3.903709803513946*^9, 3.903710841253977*^9, 
   3.903711308050249*^9, 3.9037117488673096`*^9, 3.903712059252456*^9, 
   3.903964042609915*^9, 3.903964345694151*^9, 3.904047886774575*^9, 
   3.904051599506219*^9, 3.904054807348445*^9, 3.90406253265224*^9, 
   3.9040726453218393`*^9, 3.904073359444302*^9, 3.904073401591919*^9, 
   3.904074103519786*^9, 3.904078119624943*^9, 3.904254024730221*^9, 
   3.904256254953245*^9, 3.904329934425108*^9, 3.904332011395269*^9, 
   3.904332097043744*^9, 3.904333935364395*^9, 3.90440968774441*^9, 
   3.904411386442356*^9, 3.904416780743494*^9, 3.904417139773497*^9, 
   3.906475501653079*^9, 3.906578656889974*^9, 3.906581714697757*^9, 
   3.906582496211617*^9, 3.906582837873207*^9, 3.908995629204715*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"7998e774-7701-499d-a9b1-57018f9364c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\"\<Nice\>\"", "<>", "\"\<to\>\"", "<>", "\"\<have\>\"", "<>", 
  "\"\<you\>\"", "<>", "\"\<back\>\""}]], "Input",
 CellChangeTimes->{{3.903624420314848*^9, 3.9036244203177013`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"dffe555d-5bee-4deb-81ef-f92f951b7330"],

Cell[BoxData["\<\"Nicetohaveyouback\"\>"], "Output",
 CellChangeTimes->{
  3.9036244214772*^9, 3.903625418767994*^9, 3.903625658482595*^9, 
   3.9036280973471622`*^9, 3.903634839733185*^9, 3.903635364392107*^9, 
   3.903636140385011*^9, 3.9036371315723677`*^9, {3.903640259235681*^9, 
   3.903640306960428*^9}, 3.903640506433178*^9, 3.903709526262121*^9, 
   3.90370971793417*^9, 3.903709803518673*^9, 3.9037108412609673`*^9, 
   3.903711308056285*^9, 3.903711748872346*^9, 3.9037120592577147`*^9, 
   3.90396404265677*^9, 3.9039643457309246`*^9, 3.904047886781781*^9, 
   3.904051599511011*^9, 3.904054807353332*^9, 3.904062532656468*^9, 
   3.904072645326996*^9, 3.904073359450037*^9, 3.9040734015968933`*^9, 
   3.904074103525007*^9, 3.904078119630371*^9, 3.9042540247349453`*^9, 
   3.904256254960278*^9, 3.9043299344301577`*^9, 3.904332011401736*^9, 
   3.9043320970500097`*^9, 3.904333935370475*^9, 3.9044096877489557`*^9, 
   3.904411386447709*^9, 3.904416780750203*^9, 3.904417139777714*^9, 
   3.906578656894704*^9, 3.906581714701215*^9, 3.906582496216971*^9, 
   3.906582837878456*^9, 3.908995629208778*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"a5637368-4879-4516-b035-6158530f35e8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.5 Basic Plotting", "Subsection",
 CellChangeTimes->{{3.906578986867751*^9, 
  3.906578998340102*^9}},ExpressionUUID->"b83ff007-3908-44fa-8aa4-\
50ad97c657f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9036247306253242`*^9, 3.903624730627324*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"86cbfc9a-9ef2-42fe-9a63-3d5121d46cb1"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwtmWc0F+77x+0teycze3+MhO7bJrJHSLKikr2yGkRWyMiohFKkhEIZ9y2j
zCIN2dkjeyf+3/85v0fXg/ej65z3eV3XOS8BFx8LdxIiIqJGYiKi/5+RM2fW
Dg8JWE+6Gx0ChKfD2TcH9wl4VDX3nKE8wiaMo9s1uwR8661O9n1BhPlVff/5
rBOwUOLpOU1yhD8k3KMamybg+Getw90djZhK5scx3E3AdW4DVz/YNOKMwAtG
N/II2PlPIBuXfwN+QRzwhEiFgBWPef2yrK7D5O76ClyOClhN5FCjTK4Ws/xs
9SpMk8fi5UFxczJvsUVzrqt4hxzWCE3TmIuoxOHLGl6pE7I41eXB/n5pOa4N
yb1cbiqDCQIn440UXmCTe9b8BzlSeDeHbcp+oBjrP2wwMViUwBN+0aIfjhTh
4o/Xvgc4iOPfj8FLlZ/5+HxMBtvn56L4JoXX4u/hHBx1gfQVLYsIftOrvSxP
komJpPmQ9m1h/OOtCUXCWCr+lZgT9+KbIFZU9QkM40rAX1v5yy58FsR36odz
7Q/jcdfhsy9s7YK4zmFVyXgqHjcGVHPdqBfEA0Flla4V8bjQ4esLqyJBPN27
Kuh6Oh5flqT/8s9XEIetVH94dP0O/ttxg9OMThDHEXPxjW3F4qM0niUbWgI4
U+vVaR2OGHy+sStJUF0ACzMroIjDaFzgL+9rpiSARXSzDj7ORGORwT3lMlEB
vCUFcVZtNJYtS25xpRPAwHMoitUhGmuZVI32fePHVBWGHglFt/ClewdsFZ78
OPtZ6jdJrZv4ipIE+eBRPgxYFewML0Vif/J3z4IZ+HCN8iCtk3YkDvumf5qZ
hA/TWXu4ZPJG4oQg9xTDmWN49t7wB9e+CFz69jFXbcUxXOyv9PG2RgSeU+KQ
ydQ7hq/USyf3cYVjD2UyW1NfXtx7mjNRaj4Uu6qMPG9u5sEcY+lKPdOB+OJz
FRu9Gh6c0pe99rQjEF/mSiNtL+XBvqEvyO6/CsS+f7XP96Tx4NSbZnstwYE4
ApWwDDjx4MzD7QUTqkCcoR8UtfSXG98993qBUS4At9nSWXEpcuNlMbfAf2l+
uP2TO/EDUW7McY/97VyoH+5SRa+O8XBjhk+Jw3+c/HAfjz+1MAk3ztZgq9WQ
8cOjoz8aZb5wYfNWEqu9Tl+841EkruPFhUV21SSGaX2xROjJQ+8nnFiHJP7z
mupVjIdNJCayOPHmn+M3flFfxTbarta28Zx4O/Mk0/aAF751JOkF8ObEe1Z6
F3rCvPDAk2FbxhOcmOu43q21xiv4Tu+N1xWdHHi5cfDsttllPC3x0XljjR3P
O5N5iuZ54IjUwSTPKXYctmZQ4+/ngZm3lmuGfrDjGIZRrWV9D3yqifNIaz07
ZhUPzw3fvIgzbS+/z4xlx2q+vTwjFhexTgw9iwo3Ox47nJ97ze6OC4YtW65p
suHAlyGdTU0uWGFSYa9fkQ0nq7bNnHvsglvmmeTkxNiwDFdAI991Fzy9/Tlv
+ggb9i4QUz+q4YIlmI0DLIdY8VLYp/E/751xpZ6OoHQIK268RnV0tOECbilX
vDFWxoKzO6b+FmNHbF3NUq32mAUTN46S+MY54un6tYWsdBasB4ru3TJxxFQd
r23PhLFgcIcqJXr4HD4zKSX7Xp8Fz0T+6Fo+cMDfOY+PpP9mxg/0x2f1Te3x
zE02dX1OZrzQG0z+QtgW00SWL6fTMOOCgF4zzRUbLBNqWDS2z4Q5LB33ROpt
cLB3JE3YOBMW5V8PHrWywRQOUz/LSplwqu71qIN4ayys+DaIWYMJ01meo8Ek
Vthl2qp82JkRqx8/JftCyhzHji+5SFgx4sUnmmG1xOa4dOgOe4geI96nbs+l
/2GG1/rqIxklGfGJgTNX7t4ywyTXDbNjZxnw7QZZ94/vTDGQn+s1p2fAKSpj
J800zuD3mWK6szb0eJ8laX+yxABTOcy4EqvTY+vnTBJGFw2wDX/xLW4Berx4
IsRUWsgAr5UKYeMFOqyjnv7O9ZE+FsfH1Cqu0+EHhlOpSbl6OHueVT7sOS2W
9nkadrlEB0+XfzVNT6bFTrnTZfZXdbBi0D3vMn9aHB/S+RbJ6+DPhwxlI+q0
WElJPnq6ThtTsNGKavfS4C017Xu537RwECDmpdujxsYeSq9PHNPEH8iw2vFR
avw35upXOAcxY0eU/akWanyBhr6s+g3EZVb7933vUuPXqoS3c8YQT17aZv4m
SI3/mE3ZNZEBbJHxh+qRERWOuzrRdI5EHcvNDWzIPqTA/2T5C6yylHHgirQ4
RwwFDiV76BlopIxrt286HlymwLHaFs4niZWxJoVEW9cJCmwIvYmrvZWwhVDY
/Uv95Dhh8ek7W3NFHOTIfbKIlhx39I6vFyoq4Pdu3t4Ja2RY9dXQbs+6PD64
8qHQb4AMf1qRe5hZJY9jwy7TwmdkWGHmz/dlRXmcff/90JAWGb5qvv61+ZQc
ft9rf509jBSbv1+vSxmSwgc/X1X9u0CK2zbI2pOvSmGtMZLZSX1SnLdGM1dy
KIk7l0rNqthIsXw1ebayqCQeov0rYFZBgi91i0tdixbHh7p5LfGzxDgTfSRy
8hHBOmeWd3w/E2OnPyzpqUwi+I6VtvTZamJc8C2Lsf3NcczoupApEvNfbmlO
anggjAVvqHk08xFj1UA6rXMPhbDO+0HqfzZEuKlHeSeRRgC/Kn2q+lGNCF/k
Mt7YesuPOfN8LqXxE2GR5rKicBd+/H2b4p5R/yFitJYPyYzkw8fDbRgf7h0g
1iNSNtlUvPjDzU06qP8PsX8hboq8xYmzXOK9+hn/IU7WjJDPexz4kjZvl+ev
fUTRSZTCFcSBGcl1E9Ou7qPRqL1jd3zYsdOdDOqJ9L+oLsz9mkc4K96/S6CI
HdtFp552f9xYYMRffD66c5fuoowJknGmW4y4yMyh9VXALko1tLFe5GLEp5mj
Y35Q7CLn9S88mQ+P4JzMPhJx6R30pNt5Lj6HFnsFX3Rp2NpGNg15qp1jNBja
7jWZ423EWmF90liSBs9yCt4Ms9xGtNevdCy3U2HlB36Hnde20IWXtGlLUhT/
8YHc6YL2Flp4q9B7PpkcDzvmNG7QbSHlEN76rytkOIavKZL38SYKPnBieIVJ
8ddCxn3vtg10lDOWwyaaGPuWlO8wsayjpNAIngOev0juiHe01tgaIvgLKuXo
7qFVf6kjAS/XEO9McEjpf3v5q5cI9euvIR9Ha6/DoW0U9LnQJCtiFTmrMPQJ
TmwgZUXngTbDVWTZZrp4THYDbWXzuW2zryIyinQe+evrKMTlwbWzFSvIt9Ko
3ENyDa3PSxoqdS0jr82z3bnuyyjwzfPzWReXEXmWxSdL9SW0FXk8cJtoGYmT
7rWGcv9BO4x8+e+UllByaPHb4sV5tK/MvKmRv4i89JqHVqemUSRRCk2+6iKa
bgp1vbw5hQ7aafmJ+hfQSmBM613aKUTsSG70gWoBqdSsUYYbTSCK6J3Hev5z
iFModB9yjKE446DqZ3RzCBbZPV+uHEFU7GudVM9mUZguRoraw4imZGGrY3AG
+bRIH8bE/kKJ/p50UsEz6OX3OyxyqgOITn1KIJlxBnHmxHuubf1ADJ9HjE11
p1FcjvDL/XvfUGq2g8vr0SlESc8SP+nbj5hdfoYwhU0hlGcaJWT3FbFu9hZ+
fTWJOoIckqf1exEnT+uOLecE4mSptLqh0IlyJjWPvKv8jZ7GFYeB+HbE/apR
iPvMb1Qx8lOpbPUj4tWsNRm6OY7O0BjwHtlqQY9olNw0jo6jcUNpQe20ZsTX
X3HtUfUY2tcsuPpU/QPS7rExbPo+iipc6VgmYhDSczYLjKYdRWriwF35RAMy
2DDM14UjaI5W/tkEVR0y5tbYbC8ZQl396+eMDquRyUtl/qSRQUSbxnbrttBb
ZA7ljExYBlEce/Yup0sVsrkoVNAXMYB0xJ21jCRfowS/gDv33v5EyvLRVzhD
XqKGiGYfi6UfKND2M/+tllK0Esdiyyz6AyWtDN25pPEcCae7nupz+o5aRH/H
uY09RWcfVR2/l/0NnRNjI6EuK0KJJaT0Fr39KJO3bHDxUQFaQ0WDvVpfEaVI
Q3jGXB4S6Vz/kBbeh25+7eIdLclGdt+1S83f9CKHFuvHti8zUdJ4ehrTny9I
0LSlU3z1HsKLE6G9x78gp44Yz5v+qWh22QMLNvQgWS7KKFbHJGRKQZVSKNON
Hv+0kx3TuYOqjz53FHzcif77joIasmLQMYKBVCFTB+qud/5NeuYmum04uycQ
/QkZhKTSsrdEoEWnO+0FG20owLJ73OpxCLIMFssWuNiKTnhKXgoQCkDvkz5d
LPjRjHz4amM1Y7yRQJGnkoDhB8RlICDM+dsD3XlHRVbwHqPnBxt/Phm6oJF8
86eaZxtRxZKkqZuhA3rZlaalqVaHurq6xdxqLVH4bu8oPFaLBIkkRvMuGiFD
EeZISPwW/RlPtqrn0kIclhbccLIC9fA9idJ1Ukadh8I+1+++RJNXyN/wq4gj
T7unJVFWz5D7Y0U76W5ORFZ1fDKSuwB14k+BOomkCHIZa+z9R//VnRikzTPZ
uJKd47aacwu5r65yAOGSxgiSjFa9E5eAQXZ+oKeV0ymZXNePrMopIMCtS42+
ovvUCFfFEi3DA8B/8++/gnubpywJP+tjNZ8A1pPMPMlqjKB6wPZWXHgpyN7g
n1UWEgT0eEGoxf41yBh4mXSBXR6A9BexLSFVII4mLgj2qQO/i1fmWjKqQYlS
c7xwpB4oVJU0bq14B25nTTH/TjUD/XQLr1p76oH2medEzWdtAcVYKVPbAgL3
bdziQpudwAM7pZOuMU2A4rgEo9ChG1DSzrwywdwM7jvZFarwXAE9UpsPXAta
gHO69+AZET/gwW7dMyHbBkRdxW/vWAUBIqK3h66NHwFR64uyReEwkDPHKj9p
3A4+n9eRCy+4DhS+Brq4DXYAtQX+kL35W6Czvj998lIX+ON5zeXbxVjgVqzY
6rbTDa7+tWjfMkwA/1IytiZjP4OXm/3clLl3Qaf6Xnplwhdgas3iavsqDWTL
l5atmfeCB9UqvJ1GGcBNxL5VgasPyBpcWVcQuw/keGhG/Mf6wO0qTV5XvVzw
j+H9VuWzr4Cr0KRPtuQh6CC7zLDu3Q8qRpifVpc8Blm7XGIE5W/giq30yHZR
IXBZaocB/76BzRT4urXlCZCZuGZX1fIdMDqyqyTQPwMfuwYSCJY/wQylfF/+
0TLgGfrro4PkAHhkJ/DonHA5oBIeJIsh/QW0y19d3JarACWfBzXLBn8B2YM1
u3sLleB0+FBUf9Ug8KEbsZj+8AbMiwzX7ScOgWFj3/BfNdUgsW94R9htGNgq
lP6z7qwFXeKj/kGso2Ckhr3munkD8Po2Wv5wcRQUapzW2m9FIBb6brm4jIHV
nHQPE5kmILroS0g8OQ5KHi2fXt9tBjuaq+b5xePgWN4wk2x4K/h038+3ivk3
uK1UIG3E8BF4avu/HJz/DVbFS2vW/DrAiZy1zmWbCdC3tWzqrtkFqJb950mb
J4CrPl1a7PEeUJIbICqVNwmel02+7mXvBWEr67qQcgq06r2l1xbvA6f1At2s
AqZAeubq7JreVzC/GlgQYTQNxFpe6mw++Qbe62+i1Jpp4DgsbV839R0kPAwa
eSI0AwSPcXM+U/gJJA2Debr/zoBT8So131d/Aa/HIf+hbg58z9Cx2rg9BtS3
tqvkOefB295qFg77cUBnHNqnGzMPVDOdeglKv8HL7VAG73ML4NGc1VAP0SRY
MgmLb6T7A37afdF+szIDGp/sPesL/QOGHXcovxzOgrt7YW3Tk3+Au4PtRhf7
PJAtDidlaFgC7hHvfw2fWwS1UY2N5corgC0wMVSreAU8Ljnofue1AniP78fM
mayCO/2nhpsLV4BV0p33G39XwVkJ9PfHkVVAmht4xc91Hex+QyeIZlaBfzi3
d/alLfCbiMiAhncNrBfPGW8qb4MOSWjLarkG6D/0z4lT74DcmzhIDK2BLxNR
Ylb1u+CkdFOl2f11kPCoSEvT6R9Q6v+e1di+DprHe0fO6RwAufDFMKn9dfC1
2n2JReYQiLRzaFM5bwCkFFTeFEcEWdy9vyKJTUAt/lno520SeIQupkbacRPc
rbvPH0pLCmmqcvLyUjYBqRfoyUgnhUTEra4hG5tA0fxDjcMLMrj4gGdDpnEL
GNtUCLfsUsAZbfmfD1a2QCfxXeqldEr4e16vnkZoG5zkD85qlqOCAyf8Y6bj
tsHVsQOheH9q2Nb/ifWR+Q4ouk/vI8hBB/PpgpXop3ZBR9b+xZ8bjDC3KpEr
nGMP5BOn/yg9ywSz7Av+zRrugeUwBxaSRiaY9LyrteXVHlB/dab0dDIzDNUR
sokI/QscynRis06xQouIL8ELtP9AT9lcWOkSBzwjNG1vd+ofGIy4OiTuxQkN
Ov6e+uj7D7i/NiVyXOCEpzhFKYu+/QOytnvG80tcUPJN5H37/ANw8USwxDrN
UUgSzDbkxkUEa0JONjwz5of2F0r7ahWJYLr+rXGlx/yw8jRopzMjgps35MtH
N/ihC9+l6jexRPCROh9OLhCAHz7Vp5JtEMEM6WfUd6iEYDSPm+6THmI4UDzR
dv+ICBwi31XbmSOGEjeY3uNAEai4kqxgTE4C5TZo1IWGROBkSw3fhhoJfFf7
zv3BK1Go4027p11CAjupgwvSXcQhWVPlq4loUvgqYlL3BJU0PPdC/6lKPilM
81c7/+uWNHyTOZSX+J4Uuih+mP96IA3dLlPEE1ZJIYtY7UD/ngxsZbF3jT5P
Bhfu2csV3JSDsReJOYVUyeEHNhXTmhcKkJLO7KbLEgXsXDvLzZisAs+K2mNl
akroJFz0jHtMBZZquR3SCFNCZv0fMTOEE9DkWmhklR0lrNQ+Uds5fAJmTT++
RtZKCY9aX2v+fvIkFGla9SvOo4LTlQO+DdwaMHTo7+uwaip4/EUJk22YBuzY
Jl8x6aWCHMKmok2/NKC3DLf3NgU13Am3Pknz6BSsztO6bPBfj8IPN510OCDU
DU53mTeggQzsTM8O6jRhVtrDgkZXGqjkny0Ws6YJZ8uejd2LooG3bIi2Q8W1
YNJE3Xm1NzQwQpwBVGZrwX6zSfskPlqYxR4y5BOhDd0klSxltmhh1N6YSZid
Lowe+67tX0QPqS2eHJ/0MoQj74yuhtbTwxTqdbGbLw3hyXScFfWNHgb8KNFP
XDKEK7qlcwmUR+DYhwy9Wb/T8PyLyJSiK0dguJy29edII3gyWHiwn8AARUR5
6QtLz8BdctV3PC6M0KC529Rb2hwW+693P/JmhD9Sy8NmrMyh1ejL3wLhjHA+
z27lQYQ5fF0rSCeWwQhHV54HNHSZw4tX6JwU2xghsVbx6ICPBez/Mkp2RoIJ
po8/D33eZAlf58WaRa0xwUUOVdqRDBvYyRI7w0DEDCO99VzVP9nA6cTbUQX0
zPDiRLDH7F8beDQipqxFjBl2nw88L+FmC++cu0VF68QMybgNvM+dOAsv8Ebh
+53MMPherFnZsh1kzA+Sq3jCApOPHO5k5DlCSY6gj1qVLLAg/5Qe94Aj1EsJ
PN+PWOALUrW0DfbzMOJ6QNL2LxZ4IvwhTUn6eTjr5DerwcQKtYp91jjSnCDm
v/q4I5IVqno3evL3XIA+hW6MkzZsUE7kqmXZngu8ey3nwV1XNvhnqYo/6agr
fGXWI6bqywaj/C4JZ5xyhUsHKpp349kgZ7SzDG+0K/RyoPU/Uc8GKVeNZtiO
uMHLrJVfkwTYoR462Vwt6Q4vxh5mKS2yw2onim/nYj1grKOi0NgOO7R0T033
e+kBixUvlSeQc8DSo6m3Kvo94NTvvo+jxzjgzevy5lVCntANFO/Em3PAdpkP
Rk3NntBlx9h+pJoDUv81SuKhuwzPX87ljbvJCXti4hZ9Gr3g3wHqntVkTvi3
2VlLZd4LZhteizqXywkzEu02Jdivwl6xs6PyVZxQn+F8133vq1Bnhq1gaJIT
jnqMV8YLeENxtzRhBQMuSGJDTvo7xQduON6RHD7CDdU2Xg/d0PeD8ebBqoQH
PFBp/+3UWnIgvNcl4VVWwgNfGJdMcZYFwgf6o4+O1/DAUF45i3MdgfC1hgEZ
Zx8PVLtlVKpGGQR/inN/3qc8Ch1EiWYdbwVBMZJGt7aAo1Dy7H0hjahg2FZJ
nmpnxAu3WeX/dCSFQjLWzOnre8fgU5LXtnpUkZB5KeoIMyUfXND9+7hMMhIK
fPJUfsLCB53L+J/KmkbCUxHqsZ+k+GCuejxdUlYkvDY5cZzJiQ+Wj9Q/zBeJ
gktvFNwLm/ngjS7qXTXj63BRYtbPRY8f0ryhjev+fgP+6Ly9EsMgAPMUg3SQ
ezTMOPVQ15pdAD4+625JERkNLSre5B7nFYAddXp7ThnRsCdrQqdNQgD+fnpb
2qg5GrY5a+ZQ6gnA3W93d4kFY2D19r5mQoQAlKJ7+mT7dwzMEgpMT5kTgAOk
GdIqAbHQOtxFObdZEIq8Z4PFPfEw6yErxXa7IHQisn+/PBsPv6O2b5ZfBOHK
eSMqI9IEaEMmGUQ/LAhHqRxUVE4kwLPJ61U3tgQhTYJS4nRhArTPj5H3EBeC
eUwsFsXhifBCc7GUYooQrKoxedR/Mhl60S4I9tgLQ12VEb780FTI96Iti2L+
ODweGTOwmJwBw2u1LRnyRKG7BVvF5Osc6FvsVa0sKw59pRQIrxTyIR2JiovM
lAT8cVq5sOKwEOpetcqUSJeC5XXS2STtxZDzHa+PrrAMVBvPn2BvLIX3/O+k
yf2QhcIJNZnSseXQItZU+mG1HLw7niFdoF4JJRxirJ9EysOBik8l89Nv4Pdp
6sJ06//uQqjp+AFzLexxmdJk5iPAQRe9Z4amdXCc7NlOpiABkpA3XnY4Xwc3
ij3LuUQIkO65Ra3/1TrItbBwVECaAPfbJzcrEuugW8DatqwaAcp5i3MEfKqD
e9GHL8/YEmBTA893Iu16KPKUizs+hQA5SsbczNUboKr+4Be6dAI0Knzoxm7c
AI3nHsSlZhHghYsUDOMODdBPmn/z/kMCdBb74xEX3gDr34p8KX5BgI9jkvQ4
6xqgRRshtuUjAc4L7eUaqTVCd89NdYNOAkyBieiKUSMMpalZ7+whQJZkhvw0
h0b40OSk89dvBLh8lzR9KbwRzn6H6r8nCHBAhP3Kn/pGuBdKsu4+Q4ASVQ3R
at2NkJ6npWRungBHBSKcUoYboYKTPsfqKgE+vG7qZnDQCHWJqXsCNwnQ2OFq
yssjCJ4t6ojZ2SHAnLWqm5x8CF7WTVKL2CfAnjpR9XhZBP/n8+D/fB78Py+q
m6k=
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
      Slot["HighlightElements"], 
      Slot["LayoutOptions"], 
      Slot["Meta"], 
      Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]], 
            Line[CompressedData["
1:eJwtmWc0F+77x+0teycze3+MhO7bJrJHSLKikr2yGkRWyMiohFKkhEIZ9y2j
zCIN2dkjeyf+3/85v0fXg/ej65z3eV3XOS8BFx8LdxIiIqJGYiKi/5+RM2fW
Dg8JWE+6Gx0ChKfD2TcH9wl4VDX3nKE8wiaMo9s1uwR8661O9n1BhPlVff/5
rBOwUOLpOU1yhD8k3KMamybg+Getw90djZhK5scx3E3AdW4DVz/YNOKMwAtG
N/II2PlPIBuXfwN+QRzwhEiFgBWPef2yrK7D5O76ClyOClhN5FCjTK4Ws/xs
9SpMk8fi5UFxczJvsUVzrqt4hxzWCE3TmIuoxOHLGl6pE7I41eXB/n5pOa4N
yb1cbiqDCQIn440UXmCTe9b8BzlSeDeHbcp+oBjrP2wwMViUwBN+0aIfjhTh
4o/Xvgc4iOPfj8FLlZ/5+HxMBtvn56L4JoXX4u/hHBx1gfQVLYsIftOrvSxP
komJpPmQ9m1h/OOtCUXCWCr+lZgT9+KbIFZU9QkM40rAX1v5yy58FsR36odz
7Q/jcdfhsy9s7YK4zmFVyXgqHjcGVHPdqBfEA0Flla4V8bjQ4esLqyJBPN27
Kuh6Oh5flqT/8s9XEIetVH94dP0O/ttxg9OMThDHEXPxjW3F4qM0niUbWgI4
U+vVaR2OGHy+sStJUF0ACzMroIjDaFzgL+9rpiSARXSzDj7ORGORwT3lMlEB
vCUFcVZtNJYtS25xpRPAwHMoitUhGmuZVI32fePHVBWGHglFt/ClewdsFZ78
OPtZ6jdJrZv4ipIE+eBRPgxYFewML0Vif/J3z4IZ+HCN8iCtk3YkDvumf5qZ
hA/TWXu4ZPJG4oQg9xTDmWN49t7wB9e+CFz69jFXbcUxXOyv9PG2RgSeU+KQ
ydQ7hq/USyf3cYVjD2UyW1NfXtx7mjNRaj4Uu6qMPG9u5sEcY+lKPdOB+OJz
FRu9Gh6c0pe99rQjEF/mSiNtL+XBvqEvyO6/CsS+f7XP96Tx4NSbZnstwYE4
ApWwDDjx4MzD7QUTqkCcoR8UtfSXG98993qBUS4At9nSWXEpcuNlMbfAf2l+
uP2TO/EDUW7McY/97VyoH+5SRa+O8XBjhk+Jw3+c/HAfjz+1MAk3ztZgq9WQ
8cOjoz8aZb5wYfNWEqu9Tl+841EkruPFhUV21SSGaX2xROjJQ+8nnFiHJP7z
mupVjIdNJCayOPHmn+M3flFfxTbarta28Zx4O/Mk0/aAF751JOkF8ObEe1Z6
F3rCvPDAk2FbxhOcmOu43q21xiv4Tu+N1xWdHHi5cfDsttllPC3x0XljjR3P
O5N5iuZ54IjUwSTPKXYctmZQ4+/ngZm3lmuGfrDjGIZRrWV9D3yqifNIaz07
ZhUPzw3fvIgzbS+/z4xlx2q+vTwjFhexTgw9iwo3Ox47nJ97ze6OC4YtW65p
suHAlyGdTU0uWGFSYa9fkQ0nq7bNnHvsglvmmeTkxNiwDFdAI991Fzy9/Tlv
+ggb9i4QUz+q4YIlmI0DLIdY8VLYp/E/751xpZ6OoHQIK268RnV0tOECbilX
vDFWxoKzO6b+FmNHbF3NUq32mAUTN46S+MY54un6tYWsdBasB4ru3TJxxFQd
r23PhLFgcIcqJXr4HD4zKSX7Xp8Fz0T+6Fo+cMDfOY+PpP9mxg/0x2f1Te3x
zE02dX1OZrzQG0z+QtgW00SWL6fTMOOCgF4zzRUbLBNqWDS2z4Q5LB33ROpt
cLB3JE3YOBMW5V8PHrWywRQOUz/LSplwqu71qIN4ayys+DaIWYMJ01meo8Ek
Vthl2qp82JkRqx8/JftCyhzHji+5SFgx4sUnmmG1xOa4dOgOe4geI96nbs+l
/2GG1/rqIxklGfGJgTNX7t4ywyTXDbNjZxnw7QZZ94/vTDGQn+s1p2fAKSpj
J800zuD3mWK6szb0eJ8laX+yxABTOcy4EqvTY+vnTBJGFw2wDX/xLW4Berx4
IsRUWsgAr5UKYeMFOqyjnv7O9ZE+FsfH1Cqu0+EHhlOpSbl6OHueVT7sOS2W
9nkadrlEB0+XfzVNT6bFTrnTZfZXdbBi0D3vMn9aHB/S+RbJ6+DPhwxlI+q0
WElJPnq6ThtTsNGKavfS4C017Xu537RwECDmpdujxsYeSq9PHNPEH8iw2vFR
avw35upXOAcxY0eU/akWanyBhr6s+g3EZVb7933vUuPXqoS3c8YQT17aZv4m
SI3/mE3ZNZEBbJHxh+qRERWOuzrRdI5EHcvNDWzIPqTA/2T5C6yylHHgirQ4
RwwFDiV76BlopIxrt286HlymwLHaFs4niZWxJoVEW9cJCmwIvYmrvZWwhVDY
/Uv95Dhh8ek7W3NFHOTIfbKIlhx39I6vFyoq4Pdu3t4Ja2RY9dXQbs+6PD64
8qHQb4AMf1qRe5hZJY9jwy7TwmdkWGHmz/dlRXmcff/90JAWGb5qvv61+ZQc
ft9rf509jBSbv1+vSxmSwgc/X1X9u0CK2zbI2pOvSmGtMZLZSX1SnLdGM1dy
KIk7l0rNqthIsXw1ebayqCQeov0rYFZBgi91i0tdixbHh7p5LfGzxDgTfSRy
8hHBOmeWd3w/E2OnPyzpqUwi+I6VtvTZamJc8C2Lsf3NcczoupApEvNfbmlO
anggjAVvqHk08xFj1UA6rXMPhbDO+0HqfzZEuKlHeSeRRgC/Kn2q+lGNCF/k
Mt7YesuPOfN8LqXxE2GR5rKicBd+/H2b4p5R/yFitJYPyYzkw8fDbRgf7h0g
1iNSNtlUvPjDzU06qP8PsX8hboq8xYmzXOK9+hn/IU7WjJDPexz4kjZvl+ev
fUTRSZTCFcSBGcl1E9Ou7qPRqL1jd3zYsdOdDOqJ9L+oLsz9mkc4K96/S6CI
HdtFp552f9xYYMRffD66c5fuoowJknGmW4y4yMyh9VXALko1tLFe5GLEp5mj
Y35Q7CLn9S88mQ+P4JzMPhJx6R30pNt5Lj6HFnsFX3Rp2NpGNg15qp1jNBja
7jWZ423EWmF90liSBs9yCt4Ms9xGtNevdCy3U2HlB36Hnde20IWXtGlLUhT/
8YHc6YL2Flp4q9B7PpkcDzvmNG7QbSHlEN76rytkOIavKZL38SYKPnBieIVJ
8ddCxn3vtg10lDOWwyaaGPuWlO8wsayjpNAIngOev0juiHe01tgaIvgLKuXo
7qFVf6kjAS/XEO9McEjpf3v5q5cI9euvIR9Ha6/DoW0U9LnQJCtiFTmrMPQJ
TmwgZUXngTbDVWTZZrp4THYDbWXzuW2zryIyinQe+evrKMTlwbWzFSvIt9Ko
3ENyDa3PSxoqdS0jr82z3bnuyyjwzfPzWReXEXmWxSdL9SW0FXk8cJtoGYmT
7rWGcv9BO4x8+e+UllByaPHb4sV5tK/MvKmRv4i89JqHVqemUSRRCk2+6iKa
bgp1vbw5hQ7aafmJ+hfQSmBM613aKUTsSG70gWoBqdSsUYYbTSCK6J3Hev5z
iFModB9yjKE446DqZ3RzCBbZPV+uHEFU7GudVM9mUZguRoraw4imZGGrY3AG
+bRIH8bE/kKJ/p50UsEz6OX3OyxyqgOITn1KIJlxBnHmxHuubf1ADJ9HjE11
p1FcjvDL/XvfUGq2g8vr0SlESc8SP+nbj5hdfoYwhU0hlGcaJWT3FbFu9hZ+
fTWJOoIckqf1exEnT+uOLecE4mSptLqh0IlyJjWPvKv8jZ7GFYeB+HbE/apR
iPvMb1Qx8lOpbPUj4tWsNRm6OY7O0BjwHtlqQY9olNw0jo6jcUNpQe20ZsTX
X3HtUfUY2tcsuPpU/QPS7rExbPo+iipc6VgmYhDSczYLjKYdRWriwF35RAMy
2DDM14UjaI5W/tkEVR0y5tbYbC8ZQl396+eMDquRyUtl/qSRQUSbxnbrttBb
ZA7ljExYBlEce/Yup0sVsrkoVNAXMYB0xJ21jCRfowS/gDv33v5EyvLRVzhD
XqKGiGYfi6UfKND2M/+tllK0Esdiyyz6AyWtDN25pPEcCae7nupz+o5aRH/H
uY09RWcfVR2/l/0NnRNjI6EuK0KJJaT0Fr39KJO3bHDxUQFaQ0WDvVpfEaVI
Q3jGXB4S6Vz/kBbeh25+7eIdLclGdt+1S83f9CKHFuvHti8zUdJ4ehrTny9I
0LSlU3z1HsKLE6G9x78gp44Yz5v+qWh22QMLNvQgWS7KKFbHJGRKQZVSKNON
Hv+0kx3TuYOqjz53FHzcif77joIasmLQMYKBVCFTB+qud/5NeuYmum04uycQ
/QkZhKTSsrdEoEWnO+0FG20owLJ73OpxCLIMFssWuNiKTnhKXgoQCkDvkz5d
LPjRjHz4amM1Y7yRQJGnkoDhB8RlICDM+dsD3XlHRVbwHqPnBxt/Phm6oJF8
86eaZxtRxZKkqZuhA3rZlaalqVaHurq6xdxqLVH4bu8oPFaLBIkkRvMuGiFD
EeZISPwW/RlPtqrn0kIclhbccLIC9fA9idJ1Ukadh8I+1+++RJNXyN/wq4gj
T7unJVFWz5D7Y0U76W5ORFZ1fDKSuwB14k+BOomkCHIZa+z9R//VnRikzTPZ
uJKd47aacwu5r65yAOGSxgiSjFa9E5eAQXZ+oKeV0ymZXNePrMopIMCtS42+
ovvUCFfFEi3DA8B/8++/gnubpywJP+tjNZ8A1pPMPMlqjKB6wPZWXHgpyN7g
n1UWEgT0eEGoxf41yBh4mXSBXR6A9BexLSFVII4mLgj2qQO/i1fmWjKqQYlS
c7xwpB4oVJU0bq14B25nTTH/TjUD/XQLr1p76oH2medEzWdtAcVYKVPbAgL3
bdziQpudwAM7pZOuMU2A4rgEo9ChG1DSzrwywdwM7jvZFarwXAE9UpsPXAta
gHO69+AZET/gwW7dMyHbBkRdxW/vWAUBIqK3h66NHwFR64uyReEwkDPHKj9p
3A4+n9eRCy+4DhS+Brq4DXYAtQX+kL35W6Czvj998lIX+ON5zeXbxVjgVqzY
6rbTDa7+tWjfMkwA/1IytiZjP4OXm/3clLl3Qaf6Xnplwhdgas3iavsqDWTL
l5atmfeCB9UqvJ1GGcBNxL5VgasPyBpcWVcQuw/keGhG/Mf6wO0qTV5XvVzw
j+H9VuWzr4Cr0KRPtuQh6CC7zLDu3Q8qRpifVpc8Blm7XGIE5W/giq30yHZR
IXBZaocB/76BzRT4urXlCZCZuGZX1fIdMDqyqyTQPwMfuwYSCJY/wQylfF/+
0TLgGfrro4PkAHhkJ/DonHA5oBIeJIsh/QW0y19d3JarACWfBzXLBn8B2YM1
u3sLleB0+FBUf9Ug8KEbsZj+8AbMiwzX7ScOgWFj3/BfNdUgsW94R9htGNgq
lP6z7qwFXeKj/kGso2Ckhr3munkD8Po2Wv5wcRQUapzW2m9FIBb6brm4jIHV
nHQPE5kmILroS0g8OQ5KHi2fXt9tBjuaq+b5xePgWN4wk2x4K/h038+3ivk3
uK1UIG3E8BF4avu/HJz/DVbFS2vW/DrAiZy1zmWbCdC3tWzqrtkFqJb950mb
J4CrPl1a7PEeUJIbICqVNwmel02+7mXvBWEr67qQcgq06r2l1xbvA6f1At2s
AqZAeubq7JreVzC/GlgQYTQNxFpe6mw++Qbe62+i1Jpp4DgsbV839R0kPAwa
eSI0AwSPcXM+U/gJJA2Debr/zoBT8So131d/Aa/HIf+hbg58z9Cx2rg9BtS3
tqvkOefB295qFg77cUBnHNqnGzMPVDOdeglKv8HL7VAG73ML4NGc1VAP0SRY
MgmLb6T7A37afdF+szIDGp/sPesL/QOGHXcovxzOgrt7YW3Tk3+Au4PtRhf7
PJAtDidlaFgC7hHvfw2fWwS1UY2N5corgC0wMVSreAU8Ljnofue1AniP78fM
mayCO/2nhpsLV4BV0p33G39XwVkJ9PfHkVVAmht4xc91Hex+QyeIZlaBfzi3
d/alLfCbiMiAhncNrBfPGW8qb4MOSWjLarkG6D/0z4lT74DcmzhIDK2BLxNR
Ylb1u+CkdFOl2f11kPCoSEvT6R9Q6v+e1di+DprHe0fO6RwAufDFMKn9dfC1
2n2JReYQiLRzaFM5bwCkFFTeFEcEWdy9vyKJTUAt/lno520SeIQupkbacRPc
rbvPH0pLCmmqcvLyUjYBqRfoyUgnhUTEra4hG5tA0fxDjcMLMrj4gGdDpnEL
GNtUCLfsUsAZbfmfD1a2QCfxXeqldEr4e16vnkZoG5zkD85qlqOCAyf8Y6bj
tsHVsQOheH9q2Nb/ifWR+Q4ouk/vI8hBB/PpgpXop3ZBR9b+xZ8bjDC3KpEr
nGMP5BOn/yg9ywSz7Av+zRrugeUwBxaSRiaY9LyrteXVHlB/dab0dDIzDNUR
sokI/QscynRis06xQouIL8ELtP9AT9lcWOkSBzwjNG1vd+ofGIy4OiTuxQkN
Ov6e+uj7D7i/NiVyXOCEpzhFKYu+/QOytnvG80tcUPJN5H37/ANw8USwxDrN
UUgSzDbkxkUEa0JONjwz5of2F0r7ahWJYLr+rXGlx/yw8jRopzMjgps35MtH
N/ihC9+l6jexRPCROh9OLhCAHz7Vp5JtEMEM6WfUd6iEYDSPm+6THmI4UDzR
dv+ICBwi31XbmSOGEjeY3uNAEai4kqxgTE4C5TZo1IWGROBkSw3fhhoJfFf7
zv3BK1Go4027p11CAjupgwvSXcQhWVPlq4loUvgqYlL3BJU0PPdC/6lKPilM
81c7/+uWNHyTOZSX+J4Uuih+mP96IA3dLlPEE1ZJIYtY7UD/ngxsZbF3jT5P
Bhfu2csV3JSDsReJOYVUyeEHNhXTmhcKkJLO7KbLEgXsXDvLzZisAs+K2mNl
akroJFz0jHtMBZZquR3SCFNCZv0fMTOEE9DkWmhklR0lrNQ+Uds5fAJmTT++
RtZKCY9aX2v+fvIkFGla9SvOo4LTlQO+DdwaMHTo7+uwaip4/EUJk22YBuzY
Jl8x6aWCHMKmok2/NKC3DLf3NgU13Am3Pknz6BSsztO6bPBfj8IPN510OCDU
DU53mTeggQzsTM8O6jRhVtrDgkZXGqjkny0Ws6YJZ8uejd2LooG3bIi2Q8W1
YNJE3Xm1NzQwQpwBVGZrwX6zSfskPlqYxR4y5BOhDd0klSxltmhh1N6YSZid
Lowe+67tX0QPqS2eHJ/0MoQj74yuhtbTwxTqdbGbLw3hyXScFfWNHgb8KNFP
XDKEK7qlcwmUR+DYhwy9Wb/T8PyLyJSiK0dguJy29edII3gyWHiwn8AARUR5
6QtLz8BdctV3PC6M0KC529Rb2hwW+693P/JmhD9Sy8NmrMyh1ejL3wLhjHA+
z27lQYQ5fF0rSCeWwQhHV54HNHSZw4tX6JwU2xghsVbx6ICPBez/Mkp2RoIJ
po8/D33eZAlf58WaRa0xwUUOVdqRDBvYyRI7w0DEDCO99VzVP9nA6cTbUQX0
zPDiRLDH7F8beDQipqxFjBl2nw88L+FmC++cu0VF68QMybgNvM+dOAsv8Ebh
+53MMPherFnZsh1kzA+Sq3jCApOPHO5k5DlCSY6gj1qVLLAg/5Qe94Aj1EsJ
PN+PWOALUrW0DfbzMOJ6QNL2LxZ4IvwhTUn6eTjr5DerwcQKtYp91jjSnCDm
v/q4I5IVqno3evL3XIA+hW6MkzZsUE7kqmXZngu8ey3nwV1XNvhnqYo/6agr
fGXWI6bqywaj/C4JZ5xyhUsHKpp349kgZ7SzDG+0K/RyoPU/Uc8GKVeNZtiO
uMHLrJVfkwTYoR462Vwt6Q4vxh5mKS2yw2onim/nYj1grKOi0NgOO7R0T033
e+kBixUvlSeQc8DSo6m3Kvo94NTvvo+jxzjgzevy5lVCntANFO/Em3PAdpkP
Rk3NntBlx9h+pJoDUv81SuKhuwzPX87ljbvJCXti4hZ9Gr3g3wHqntVkTvi3
2VlLZd4LZhteizqXywkzEu02Jdivwl6xs6PyVZxQn+F8133vq1Bnhq1gaJIT
jnqMV8YLeENxtzRhBQMuSGJDTvo7xQduON6RHD7CDdU2Xg/d0PeD8ebBqoQH
PFBp/+3UWnIgvNcl4VVWwgNfGJdMcZYFwgf6o4+O1/DAUF45i3MdgfC1hgEZ
Zx8PVLtlVKpGGQR/inN/3qc8Ch1EiWYdbwVBMZJGt7aAo1Dy7H0hjahg2FZJ
nmpnxAu3WeX/dCSFQjLWzOnre8fgU5LXtnpUkZB5KeoIMyUfXND9+7hMMhIK
fPJUfsLCB53L+J/KmkbCUxHqsZ+k+GCuejxdUlYkvDY5cZzJiQ+Wj9Q/zBeJ
gktvFNwLm/ngjS7qXTXj63BRYtbPRY8f0ryhjev+fgP+6Ly9EsMgAPMUg3SQ
ezTMOPVQ15pdAD4+625JERkNLSre5B7nFYAddXp7ThnRsCdrQqdNQgD+fnpb
2qg5GrY5a+ZQ6gnA3W93d4kFY2D19r5mQoQAlKJ7+mT7dwzMEgpMT5kTgAOk
GdIqAbHQOtxFObdZEIq8Z4PFPfEw6yErxXa7IHQisn+/PBsPv6O2b5ZfBOHK
eSMqI9IEaEMmGUQ/LAhHqRxUVE4kwLPJ61U3tgQhTYJS4nRhArTPj5H3EBeC
eUwsFsXhifBCc7GUYooQrKoxedR/Mhl60S4I9tgLQ12VEb780FTI96Iti2L+
ODweGTOwmJwBw2u1LRnyRKG7BVvF5Osc6FvsVa0sKw59pRQIrxTyIR2JiovM
lAT8cVq5sOKwEOpetcqUSJeC5XXS2STtxZDzHa+PrrAMVBvPn2BvLIX3/O+k
yf2QhcIJNZnSseXQItZU+mG1HLw7niFdoF4JJRxirJ9EysOBik8l89Nv4Pdp
6sJ06//uQqjp+AFzLexxmdJk5iPAQRe9Z4amdXCc7NlOpiABkpA3XnY4Xwc3
ij3LuUQIkO65Ra3/1TrItbBwVECaAPfbJzcrEuugW8DatqwaAcp5i3MEfKqD
e9GHL8/YEmBTA893Iu16KPKUizs+hQA5SsbczNUboKr+4Be6dAI0Knzoxm7c
AI3nHsSlZhHghYsUDOMODdBPmn/z/kMCdBb74xEX3gDr34p8KX5BgI9jkvQ4
6xqgRRshtuUjAc4L7eUaqTVCd89NdYNOAkyBieiKUSMMpalZ7+whQJZkhvw0
h0b40OSk89dvBLh8lzR9KbwRzn6H6r8nCHBAhP3Kn/pGuBdKsu4+Q4ASVQ3R
at2NkJ6npWRungBHBSKcUoYboYKTPsfqKgE+vG7qZnDQCHWJqXsCNwnQ2OFq
yssjCJ4t6ojZ2SHAnLWqm5x8CF7WTVKL2CfAnjpR9XhZBP/n8+D/fB78Py+q
m6k=
             "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PlotRange" -> {{-20, 20}, {-7999.999020408204, 7999.999020408204}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>]]& )[<|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PlotRange" -> {{-20, 20}, {-7999.999020408204, 7999.999020408204}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>],
     ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
      4.503599627370496*^15, -4.503599627370496*^15}}]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Line[CompressedData["
1:eJwtmWc0F+77x+0teycze3+MhO7bJrJHSLKikr2yGkRWyMiohFKkhEIZ9y2j
zCIN2dkjeyf+3/85v0fXg/ej65z3eV3XOS8BFx8LdxIiIqJGYiKi/5+RM2fW
Dg8JWE+6Gx0ChKfD2TcH9wl4VDX3nKE8wiaMo9s1uwR8661O9n1BhPlVff/5
rBOwUOLpOU1yhD8k3KMamybg+Getw90djZhK5scx3E3AdW4DVz/YNOKMwAtG
N/II2PlPIBuXfwN+QRzwhEiFgBWPef2yrK7D5O76ClyOClhN5FCjTK4Ws/xs
9SpMk8fi5UFxczJvsUVzrqt4hxzWCE3TmIuoxOHLGl6pE7I41eXB/n5pOa4N
yb1cbiqDCQIn440UXmCTe9b8BzlSeDeHbcp+oBjrP2wwMViUwBN+0aIfjhTh
4o/Xvgc4iOPfj8FLlZ/5+HxMBtvn56L4JoXX4u/hHBx1gfQVLYsIftOrvSxP
komJpPmQ9m1h/OOtCUXCWCr+lZgT9+KbIFZU9QkM40rAX1v5yy58FsR36odz
7Q/jcdfhsy9s7YK4zmFVyXgqHjcGVHPdqBfEA0Flla4V8bjQ4esLqyJBPN27
Kuh6Oh5flqT/8s9XEIetVH94dP0O/ttxg9OMThDHEXPxjW3F4qM0niUbWgI4
U+vVaR2OGHy+sStJUF0ACzMroIjDaFzgL+9rpiSARXSzDj7ORGORwT3lMlEB
vCUFcVZtNJYtS25xpRPAwHMoitUhGmuZVI32fePHVBWGHglFt/ClewdsFZ78
OPtZ6jdJrZv4ipIE+eBRPgxYFewML0Vif/J3z4IZ+HCN8iCtk3YkDvumf5qZ
hA/TWXu4ZPJG4oQg9xTDmWN49t7wB9e+CFz69jFXbcUxXOyv9PG2RgSeU+KQ
ydQ7hq/USyf3cYVjD2UyW1NfXtx7mjNRaj4Uu6qMPG9u5sEcY+lKPdOB+OJz
FRu9Gh6c0pe99rQjEF/mSiNtL+XBvqEvyO6/CsS+f7XP96Tx4NSbZnstwYE4
ApWwDDjx4MzD7QUTqkCcoR8UtfSXG98993qBUS4At9nSWXEpcuNlMbfAf2l+
uP2TO/EDUW7McY/97VyoH+5SRa+O8XBjhk+Jw3+c/HAfjz+1MAk3ztZgq9WQ
8cOjoz8aZb5wYfNWEqu9Tl+841EkruPFhUV21SSGaX2xROjJQ+8nnFiHJP7z
mupVjIdNJCayOPHmn+M3flFfxTbarta28Zx4O/Mk0/aAF751JOkF8ObEe1Z6
F3rCvPDAk2FbxhOcmOu43q21xiv4Tu+N1xWdHHi5cfDsttllPC3x0XljjR3P
O5N5iuZ54IjUwSTPKXYctmZQ4+/ngZm3lmuGfrDjGIZRrWV9D3yqifNIaz07
ZhUPzw3fvIgzbS+/z4xlx2q+vTwjFhexTgw9iwo3Ox47nJ97ze6OC4YtW65p
suHAlyGdTU0uWGFSYa9fkQ0nq7bNnHvsglvmmeTkxNiwDFdAI991Fzy9/Tlv
+ggb9i4QUz+q4YIlmI0DLIdY8VLYp/E/751xpZ6OoHQIK268RnV0tOECbilX
vDFWxoKzO6b+FmNHbF3NUq32mAUTN46S+MY54un6tYWsdBasB4ru3TJxxFQd
r23PhLFgcIcqJXr4HD4zKSX7Xp8Fz0T+6Fo+cMDfOY+PpP9mxg/0x2f1Te3x
zE02dX1OZrzQG0z+QtgW00SWL6fTMOOCgF4zzRUbLBNqWDS2z4Q5LB33ROpt
cLB3JE3YOBMW5V8PHrWywRQOUz/LSplwqu71qIN4ayys+DaIWYMJ01meo8Ek
Vthl2qp82JkRqx8/JftCyhzHji+5SFgx4sUnmmG1xOa4dOgOe4geI96nbs+l
/2GG1/rqIxklGfGJgTNX7t4ywyTXDbNjZxnw7QZZ94/vTDGQn+s1p2fAKSpj
J800zuD3mWK6szb0eJ8laX+yxABTOcy4EqvTY+vnTBJGFw2wDX/xLW4Berx4
IsRUWsgAr5UKYeMFOqyjnv7O9ZE+FsfH1Cqu0+EHhlOpSbl6OHueVT7sOS2W
9nkadrlEB0+XfzVNT6bFTrnTZfZXdbBi0D3vMn9aHB/S+RbJ6+DPhwxlI+q0
WElJPnq6ThtTsNGKavfS4C017Xu537RwECDmpdujxsYeSq9PHNPEH8iw2vFR
avw35upXOAcxY0eU/akWanyBhr6s+g3EZVb7933vUuPXqoS3c8YQT17aZv4m
SI3/mE3ZNZEBbJHxh+qRERWOuzrRdI5EHcvNDWzIPqTA/2T5C6yylHHgirQ4
RwwFDiV76BlopIxrt286HlymwLHaFs4niZWxJoVEW9cJCmwIvYmrvZWwhVDY
/Uv95Dhh8ek7W3NFHOTIfbKIlhx39I6vFyoq4Pdu3t4Ja2RY9dXQbs+6PD64
8qHQb4AMf1qRe5hZJY9jwy7TwmdkWGHmz/dlRXmcff/90JAWGb5qvv61+ZQc
ft9rf509jBSbv1+vSxmSwgc/X1X9u0CK2zbI2pOvSmGtMZLZSX1SnLdGM1dy
KIk7l0rNqthIsXw1ebayqCQeov0rYFZBgi91i0tdixbHh7p5LfGzxDgTfSRy
8hHBOmeWd3w/E2OnPyzpqUwi+I6VtvTZamJc8C2Lsf3NcczoupApEvNfbmlO
anggjAVvqHk08xFj1UA6rXMPhbDO+0HqfzZEuKlHeSeRRgC/Kn2q+lGNCF/k
Mt7YesuPOfN8LqXxE2GR5rKicBd+/H2b4p5R/yFitJYPyYzkw8fDbRgf7h0g
1iNSNtlUvPjDzU06qP8PsX8hboq8xYmzXOK9+hn/IU7WjJDPexz4kjZvl+ev
fUTRSZTCFcSBGcl1E9Ou7qPRqL1jd3zYsdOdDOqJ9L+oLsz9mkc4K96/S6CI
HdtFp552f9xYYMRffD66c5fuoowJknGmW4y4yMyh9VXALko1tLFe5GLEp5mj
Y35Q7CLn9S88mQ+P4JzMPhJx6R30pNt5Lj6HFnsFX3Rp2NpGNg15qp1jNBja
7jWZ423EWmF90liSBs9yCt4Ms9xGtNevdCy3U2HlB36Hnde20IWXtGlLUhT/
8YHc6YL2Flp4q9B7PpkcDzvmNG7QbSHlEN76rytkOIavKZL38SYKPnBieIVJ
8ddCxn3vtg10lDOWwyaaGPuWlO8wsayjpNAIngOev0juiHe01tgaIvgLKuXo
7qFVf6kjAS/XEO9McEjpf3v5q5cI9euvIR9Ha6/DoW0U9LnQJCtiFTmrMPQJ
TmwgZUXngTbDVWTZZrp4THYDbWXzuW2zryIyinQe+evrKMTlwbWzFSvIt9Ko
3ENyDa3PSxoqdS0jr82z3bnuyyjwzfPzWReXEXmWxSdL9SW0FXk8cJtoGYmT
7rWGcv9BO4x8+e+UllByaPHb4sV5tK/MvKmRv4i89JqHVqemUSRRCk2+6iKa
bgp1vbw5hQ7aafmJ+hfQSmBM613aKUTsSG70gWoBqdSsUYYbTSCK6J3Hev5z
iFModB9yjKE446DqZ3RzCBbZPV+uHEFU7GudVM9mUZguRoraw4imZGGrY3AG
+bRIH8bE/kKJ/p50UsEz6OX3OyxyqgOITn1KIJlxBnHmxHuubf1ADJ9HjE11
p1FcjvDL/XvfUGq2g8vr0SlESc8SP+nbj5hdfoYwhU0hlGcaJWT3FbFu9hZ+
fTWJOoIckqf1exEnT+uOLecE4mSptLqh0IlyJjWPvKv8jZ7GFYeB+HbE/apR
iPvMb1Qx8lOpbPUj4tWsNRm6OY7O0BjwHtlqQY9olNw0jo6jcUNpQe20ZsTX
X3HtUfUY2tcsuPpU/QPS7rExbPo+iipc6VgmYhDSczYLjKYdRWriwF35RAMy
2DDM14UjaI5W/tkEVR0y5tbYbC8ZQl396+eMDquRyUtl/qSRQUSbxnbrttBb
ZA7ljExYBlEce/Yup0sVsrkoVNAXMYB0xJ21jCRfowS/gDv33v5EyvLRVzhD
XqKGiGYfi6UfKND2M/+tllK0Esdiyyz6AyWtDN25pPEcCae7nupz+o5aRH/H
uY09RWcfVR2/l/0NnRNjI6EuK0KJJaT0Fr39KJO3bHDxUQFaQ0WDvVpfEaVI
Q3jGXB4S6Vz/kBbeh25+7eIdLclGdt+1S83f9CKHFuvHti8zUdJ4ehrTny9I
0LSlU3z1HsKLE6G9x78gp44Yz5v+qWh22QMLNvQgWS7KKFbHJGRKQZVSKNON
Hv+0kx3TuYOqjz53FHzcif77joIasmLQMYKBVCFTB+qud/5NeuYmum04uycQ
/QkZhKTSsrdEoEWnO+0FG20owLJ73OpxCLIMFssWuNiKTnhKXgoQCkDvkz5d
LPjRjHz4amM1Y7yRQJGnkoDhB8RlICDM+dsD3XlHRVbwHqPnBxt/Phm6oJF8
86eaZxtRxZKkqZuhA3rZlaalqVaHurq6xdxqLVH4bu8oPFaLBIkkRvMuGiFD
EeZISPwW/RlPtqrn0kIclhbccLIC9fA9idJ1Ukadh8I+1+++RJNXyN/wq4gj
T7unJVFWz5D7Y0U76W5ORFZ1fDKSuwB14k+BOomkCHIZa+z9R//VnRikzTPZ
uJKd47aacwu5r65yAOGSxgiSjFa9E5eAQXZ+oKeV0ymZXNePrMopIMCtS42+
ovvUCFfFEi3DA8B/8++/gnubpywJP+tjNZ8A1pPMPMlqjKB6wPZWXHgpyN7g
n1UWEgT0eEGoxf41yBh4mXSBXR6A9BexLSFVII4mLgj2qQO/i1fmWjKqQYlS
c7xwpB4oVJU0bq14B25nTTH/TjUD/XQLr1p76oH2medEzWdtAcVYKVPbAgL3
bdziQpudwAM7pZOuMU2A4rgEo9ChG1DSzrwywdwM7jvZFarwXAE9UpsPXAta
gHO69+AZET/gwW7dMyHbBkRdxW/vWAUBIqK3h66NHwFR64uyReEwkDPHKj9p
3A4+n9eRCy+4DhS+Brq4DXYAtQX+kL35W6Czvj998lIX+ON5zeXbxVjgVqzY
6rbTDa7+tWjfMkwA/1IytiZjP4OXm/3clLl3Qaf6Xnplwhdgas3iavsqDWTL
l5atmfeCB9UqvJ1GGcBNxL5VgasPyBpcWVcQuw/keGhG/Mf6wO0qTV5XvVzw
j+H9VuWzr4Cr0KRPtuQh6CC7zLDu3Q8qRpifVpc8Blm7XGIE5W/giq30yHZR
IXBZaocB/76BzRT4urXlCZCZuGZX1fIdMDqyqyTQPwMfuwYSCJY/wQylfF/+
0TLgGfrro4PkAHhkJ/DonHA5oBIeJIsh/QW0y19d3JarACWfBzXLBn8B2YM1
u3sLleB0+FBUf9Ug8KEbsZj+8AbMiwzX7ScOgWFj3/BfNdUgsW94R9htGNgq
lP6z7qwFXeKj/kGso2Ckhr3munkD8Po2Wv5wcRQUapzW2m9FIBb6brm4jIHV
nHQPE5kmILroS0g8OQ5KHi2fXt9tBjuaq+b5xePgWN4wk2x4K/h038+3ivk3
uK1UIG3E8BF4avu/HJz/DVbFS2vW/DrAiZy1zmWbCdC3tWzqrtkFqJb950mb
J4CrPl1a7PEeUJIbICqVNwmel02+7mXvBWEr67qQcgq06r2l1xbvA6f1At2s
AqZAeubq7JreVzC/GlgQYTQNxFpe6mw++Qbe62+i1Jpp4DgsbV839R0kPAwa
eSI0AwSPcXM+U/gJJA2Debr/zoBT8So131d/Aa/HIf+hbg58z9Cx2rg9BtS3
tqvkOefB295qFg77cUBnHNqnGzMPVDOdeglKv8HL7VAG73ML4NGc1VAP0SRY
MgmLb6T7A37afdF+szIDGp/sPesL/QOGHXcovxzOgrt7YW3Tk3+Au4PtRhf7
PJAtDidlaFgC7hHvfw2fWwS1UY2N5corgC0wMVSreAU8Ljnofue1AniP78fM
mayCO/2nhpsLV4BV0p33G39XwVkJ9PfHkVVAmht4xc91Hex+QyeIZlaBfzi3
d/alLfCbiMiAhncNrBfPGW8qb4MOSWjLarkG6D/0z4lT74DcmzhIDK2BLxNR
Ylb1u+CkdFOl2f11kPCoSEvT6R9Q6v+e1di+DprHe0fO6RwAufDFMKn9dfC1
2n2JReYQiLRzaFM5bwCkFFTeFEcEWdy9vyKJTUAt/lno520SeIQupkbacRPc
rbvPH0pLCmmqcvLyUjYBqRfoyUgnhUTEra4hG5tA0fxDjcMLMrj4gGdDpnEL
GNtUCLfsUsAZbfmfD1a2QCfxXeqldEr4e16vnkZoG5zkD85qlqOCAyf8Y6bj
tsHVsQOheH9q2Nb/ifWR+Q4ouk/vI8hBB/PpgpXop3ZBR9b+xZ8bjDC3KpEr
nGMP5BOn/yg9ywSz7Av+zRrugeUwBxaSRiaY9LyrteXVHlB/dab0dDIzDNUR
sokI/QscynRis06xQouIL8ELtP9AT9lcWOkSBzwjNG1vd+ofGIy4OiTuxQkN
Ov6e+uj7D7i/NiVyXOCEpzhFKYu+/QOytnvG80tcUPJN5H37/ANw8USwxDrN
UUgSzDbkxkUEa0JONjwz5of2F0r7ahWJYLr+rXGlx/yw8jRopzMjgps35MtH
N/ihC9+l6jexRPCROh9OLhCAHz7Vp5JtEMEM6WfUd6iEYDSPm+6THmI4UDzR
dv+ICBwi31XbmSOGEjeY3uNAEai4kqxgTE4C5TZo1IWGROBkSw3fhhoJfFf7
zv3BK1Go4027p11CAjupgwvSXcQhWVPlq4loUvgqYlL3BJU0PPdC/6lKPilM
81c7/+uWNHyTOZSX+J4Uuih+mP96IA3dLlPEE1ZJIYtY7UD/ngxsZbF3jT5P
Bhfu2csV3JSDsReJOYVUyeEHNhXTmhcKkJLO7KbLEgXsXDvLzZisAs+K2mNl
akroJFz0jHtMBZZquR3SCFNCZv0fMTOEE9DkWmhklR0lrNQ+Uds5fAJmTT++
RtZKCY9aX2v+fvIkFGla9SvOo4LTlQO+DdwaMHTo7+uwaip4/EUJk22YBuzY
Jl8x6aWCHMKmok2/NKC3DLf3NgU13Am3Pknz6BSsztO6bPBfj8IPN510OCDU
DU53mTeggQzsTM8O6jRhVtrDgkZXGqjkny0Ws6YJZ8uejd2LooG3bIi2Q8W1
YNJE3Xm1NzQwQpwBVGZrwX6zSfskPlqYxR4y5BOhDd0klSxltmhh1N6YSZid
Lowe+67tX0QPqS2eHJ/0MoQj74yuhtbTwxTqdbGbLw3hyXScFfWNHgb8KNFP
XDKEK7qlcwmUR+DYhwy9Wb/T8PyLyJSiK0dguJy29edII3gyWHiwn8AARUR5
6QtLz8BdctV3PC6M0KC529Rb2hwW+693P/JmhD9Sy8NmrMyh1ejL3wLhjHA+
z27lQYQ5fF0rSCeWwQhHV54HNHSZw4tX6JwU2xghsVbx6ICPBez/Mkp2RoIJ
po8/D33eZAlf58WaRa0xwUUOVdqRDBvYyRI7w0DEDCO99VzVP9nA6cTbUQX0
zPDiRLDH7F8beDQipqxFjBl2nw88L+FmC++cu0VF68QMybgNvM+dOAsv8Ebh
+53MMPherFnZsh1kzA+Sq3jCApOPHO5k5DlCSY6gj1qVLLAg/5Qe94Aj1EsJ
PN+PWOALUrW0DfbzMOJ6QNL2LxZ4IvwhTUn6eTjr5DerwcQKtYp91jjSnCDm
v/q4I5IVqno3evL3XIA+hW6MkzZsUE7kqmXZngu8ey3nwV1XNvhnqYo/6agr
fGXWI6bqywaj/C4JZ5xyhUsHKpp349kgZ7SzDG+0K/RyoPU/Uc8GKVeNZtiO
uMHLrJVfkwTYoR462Vwt6Q4vxh5mKS2yw2onim/nYj1grKOi0NgOO7R0T033
e+kBixUvlSeQc8DSo6m3Kvo94NTvvo+jxzjgzevy5lVCntANFO/Em3PAdpkP
Rk3NntBlx9h+pJoDUv81SuKhuwzPX87ljbvJCXti4hZ9Gr3g3wHqntVkTvi3
2VlLZd4LZhteizqXywkzEu02Jdivwl6xs6PyVZxQn+F8133vq1Bnhq1gaJIT
jnqMV8YLeENxtzRhBQMuSGJDTvo7xQduON6RHD7CDdU2Xg/d0PeD8ebBqoQH
PFBp/+3UWnIgvNcl4VVWwgNfGJdMcZYFwgf6o4+O1/DAUF45i3MdgfC1hgEZ
Zx8PVLtlVKpGGQR/inN/3qc8Ch1EiWYdbwVBMZJGt7aAo1Dy7H0hjahg2FZJ
nmpnxAu3WeX/dCSFQjLWzOnre8fgU5LXtnpUkZB5KeoIMyUfXND9+7hMMhIK
fPJUfsLCB53L+J/KmkbCUxHqsZ+k+GCuejxdUlYkvDY5cZzJiQ+Wj9Q/zBeJ
gktvFNwLm/ngjS7qXTXj63BRYtbPRY8f0ryhjev+fgP+6Ly9EsMgAPMUg3SQ
ezTMOPVQ15pdAD4+625JERkNLSre5B7nFYAddXp7ThnRsCdrQqdNQgD+fnpb
2qg5GrY5a+ZQ6gnA3W93d4kFY2D19r5mQoQAlKJ7+mT7dwzMEgpMT5kTgAOk
GdIqAbHQOtxFObdZEIq8Z4PFPfEw6yErxXa7IHQisn+/PBsPv6O2b5ZfBOHK
eSMqI9IEaEMmGUQ/LAhHqRxUVE4kwLPJ61U3tgQhTYJS4nRhArTPj5H3EBeC
eUwsFsXhifBCc7GUYooQrKoxedR/Mhl60S4I9tgLQ12VEb780FTI96Iti2L+
ODweGTOwmJwBw2u1LRnyRKG7BVvF5Osc6FvsVa0sKw59pRQIrxTyIR2JiovM
lAT8cVq5sOKwEOpetcqUSJeC5XXS2STtxZDzHa+PrrAMVBvPn2BvLIX3/O+k
yf2QhcIJNZnSseXQItZU+mG1HLw7niFdoF4JJRxirJ9EysOBik8l89Nv4Pdp
6sJ06//uQqjp+AFzLexxmdJk5iPAQRe9Z4amdXCc7NlOpiABkpA3XnY4Xwc3
ij3LuUQIkO65Ra3/1TrItbBwVECaAPfbJzcrEuugW8DatqwaAcp5i3MEfKqD
e9GHL8/YEmBTA893Iu16KPKUizs+hQA5SsbczNUboKr+4Be6dAI0Knzoxm7c
AI3nHsSlZhHghYsUDOMODdBPmn/z/kMCdBb74xEX3gDr34p8KX5BgI9jkvQ4
6xqgRRshtuUjAc4L7eUaqTVCd89NdYNOAkyBieiKUSMMpalZ7+whQJZkhvw0
h0b40OSk89dvBLh8lzR9KbwRzn6H6r8nCHBAhP3Kn/pGuBdKsu4+Q4ASVQ3R
at2NkJ6npWRungBHBSKcUoYboYKTPsfqKgE+vG7qZnDQCHWJqXsCNwnQ2OFq
yssjCJ4t6ojZ2SHAnLWqm5x8CF7WTVKL2CfAnjpR9XhZBP/n8+D/fB78Py+q
m6k=
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PlotRange" -> {{-20, 20}, {-7999.999020408204, 7999.999020408204}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-20, 20}, {-7999.999020408204, 7999.999020408204}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9036247319623423`*^9, 3.903625418887661*^9, 3.9036256585959177`*^9, 
   3.903628097467492*^9, 3.9036348398671517`*^9, 3.90363536453894*^9, 
   3.903636140536057*^9, 3.903637131678567*^9, {3.903640259336623*^9, 
   3.903640307054489*^9}, 3.903640506539941*^9, 3.903709526378291*^9, 
   3.903709718077802*^9, 3.903709803662011*^9, 3.9037108413820553`*^9, 
   3.9037113081760397`*^9, 3.903711748991642*^9, 3.903712059381456*^9, 
   3.903964042798874*^9, 3.903964346131437*^9, 3.904047886836138*^9, 
   3.904051599635627*^9, 3.904054807475715*^9, 3.9040625327812233`*^9, 
   3.904072645452755*^9, 3.9040733595727053`*^9, 3.90407340170715*^9, 
   3.904074103649235*^9, 3.904078119756548*^9, 3.9042540248609*^9, 
   3.904256255078882*^9, 3.904329934563957*^9, 3.904332011430753*^9, 
   3.90433209716721*^9, 3.904333935489059*^9, 3.904409687912543*^9, 
   3.904411386593053*^9, 3.904416780869396*^9, 3.9044171398974137`*^9, 
   3.906475850972487*^9, 3.906578657029077*^9, 3.906581714821677*^9, 
   3.906582496342513*^9, 3.906582837994645*^9, 3.908995629329995*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"26252e98-dba1-4910-a051-ccd523caf1d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Tan", "[", "x", "]"}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903624852597998*^9, 3.903624852601509*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"967648a9-93a6-4fc9-8ec1-9d3d17e15c4f"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwly3k8FHgDx/FB0iGUkJs8NW7RJcX3V60Kk33W2batoiy1iA6lpPbRJuuo
bETriLSMXFnZSI7t0BhKERMyGM1g0MyYw1Wentfzx/f1/uf7MQ447hEoT6FQ
kr7uf2bFBCy0PZLgtOji/33WbkTzNTqKSDeVyANfnX9RF2tkFAW1jjnzjV/N
akgyVDSKxxOHkFrfr4Y4ng6VGWbgUI/OxHbjDLTPBt8UGNKxXvNSnO4aOpR6
BqnjhtUIsq9xLtxQjdzmnAi+IQPlNvF6b04yIE5/aM5OZOC15w7Z2o8M7Api
ct5OM9BdZThw16cZYwoy75r2ZsgX2jZpODBh7+juEB/XAtV3LO8J+Va0lc3J
Uz+9RqvsPivRvQ0Xmy1dbQ+2wzHh4d7guXaUlsX3hFh3gxJl6UWt78HoitFE
V/9uGB0nkfTZHlAjXZ1Mb3Yj6e27Sm/7XtzZtjSXM92NfaykEOuKXqQwEn/a
/7wHOtUWuycKPiCSc024+8AHrFqQGa2VyUbOUmbscud+3JlqyA9+NwAnx/MH
Lvn1Q5pqG9UiHUBvmMXGT2f6McxNWeu+ahCr3iZwW4r6ERyd5Vv8wyBupNNc
rqoNwDrCwvsDZxCxa16pzPcMgPLmV57fDAdBeJMxdoKDY30850s7uKDkSWt6
Ejj4pPntlptBXKQv0Ottzudg3aeIv9sSuXjJ+MmA3smBcgRL43kXF6Zec3mB
DkMo+cyVFBznYTiYWtwn9xHhJ7P76guGcSzlQl3bdS6O+tcv7N7Gh7wkj11P
58ImW/2wNIiP274vKWX/cFFEbThO+52PZj31nUliLjgzCtsLR/mwKChsctnH
g9PFLpZt5hjGHre3/WM4DP0fKe+slk4g7KMZp7J0BN6tOjy7awL0+71f1MgY
gd7F87K99wXwZF21bh0aQVa3z1+3mwSwZ/KiPuqM4m5X4BCTIoTCg3tqmnGj
mA973nnntBDp0cZOZw7yIWetpfrkqAhLpG2HY8/xQfFKEbjGi3Dh+KX4a6l8
2EX0dWvSRQgIYHcUMPmojE07EjIiguWerJ9Zm8cweMUh2jR0Eo3q2hlb1Mbx
tphW8/wXMTYkvaxzthjHSGAjl35PjD8Xnh36btc4dMeyK3sZYiROd9ocix7H
zKtInfXqEviwb764PTyODQ2ZjS/oEowWqYlnGyZQUaVoVMeTYonxZSrbXgCF
7VqFuyqm8XLbDZsYZwHyU1w1S9jTuLIve7O+hwARFjljcctmIH/90e4ffhbg
yPWylrxjM5j5MhbUlSWAjedbZoH5LPi93oWv5YWwoDk+G3s6h6KpgPIwVSEE
gU1+d6fnELwy/NEyPSE6VGfcxDafMeT220u3jUKIz0iqwrM/o7embrgpSIjk
cm0Ds9gvaEmnmjW0CDHCcy3ZuZlCfqvcYHvwvRBtaxsqK30pZE/b9i1fPgoh
lOueTD5LIc+UDrhsmxfioP+tnrjHFFIbef3oI1sRPtyoNWjZJUfOpWRF+DqJ
UEqC9zYdkyP2pUVRUlcRrNn6w07X5Ejlx2fxG46IYL7Ozaf0vRwp8Zqml6eJ
sGyr6xH2KXkSEr6w4tu7IrR+J6xTyZIn5onqNRNlIpRVbyt++1ye/PnUqtmS
IcJOf0/jtdoKJNsuYLRwVgSHfLPBgCYFkqzGNM89NImmrQYB750VSfVm/Yfu
YZMI3TO05bcLimTI7zjmzk/Cu9zH3LFKkWwtUffyvTWJ+h3ejk3mC8mwy4EL
y15NIt5Oxd3dWImsjChVetwziWgDibPAX4kgnZISPDIJI+UbR1l3lUgaN//P
pwvE+JGaa5JvsYjsjB1/HbVVjKsOw+OHaItJWBH2U13EOPiy1+5o+mJy+82N
oQ4fMfbkt/RpcBcTgeGmaZsTYjCJ/kzqlSUkuzZmNbfw699RPW/0w1LC4LQV
/14lhj9bJYVpr0zES0w2b38mRhAjw6orVZm4fd/klskWw9LsjLDRZxmZkqie
9tCU4MRE3ZYQqQox0Q+YnzeRgHuIzlsdqErcv6mML7GV4M4K2t7mTlVyL2Vf
9qK9Eoj7yrMr/dVIW3WRadV+Cco6Dut75KiRuf65isPBEqi/uZ1wv0+NeNjk
NtXFSuDQuoPXH7CcxPhMfhdyQwKd2neGvILlhH7BuVc7R4IXGcbKXyaWE0rL
iOBUjQS8p3dvNcauICXBdjoWQgkOnKhSqGpWJ6xrl/NZXyQI+/VcxbcmK8mC
vzutryhLcYFGVRPGrCT7Fc/vHKBK8Yeq5bgQGuSKZWtr8kYpBp9aZhTf0yAP
PA33bdspxefL/L41qppkUd7TkFt+UmSkRdPtJjTJeoaG7JsQKbKVzPzIES3i
Jwj6RRQlxcys7oQcW4s8dFJO25sqRdL5ucOvOatIf6Cf0Wze1z4ynf2fMG2i
nFReVFguBV/7cYvDvDYJ6PGqV2iRIkwW0+m3QZcs+WMgNOK9FGNS5rXcTl1S
sT9Mj82VIkV5TOvsJT2i0B0XVSMnQ0VMwieDcX1SnLHS1FRVBlMP/3q7BwbE
6/vczlQ9Gf6do/GvwIuGJJ9Vsz5iswxL2bx9tdlGhJa+e7DvGxnk71/NydEy
JmLfjus0DxmMwx8pn79lTDK1/FFzUAZrl887JgxWE+eu8XFqqAzaayZ/LS5d
TSbSzmWmnpPBytKy6+JuE5Lmo+SmcFWGhZolZbRRE8J9Z1TYlyeD3qljCxQ9
1pDk1BIfWrkMy+x+V/tZey3Z5O2gWPNEhu6Yy2dffVpL+lY2/UVlynDPq8NM
1EklcR2eAaksGXLjVG8PtpmSdTf71RS4MmS+qP1Jsd+MsDxD68MnZYhk3TGw
UrIgl9RnQvsoU8hJy0yucLEkpu1X9GgqU2hNOnky9b4VaUtRZ1brTuGXeNGm
AlsbctbjThTVbAp0jbHGgfB1xGiFlWnqpingyS3dZH9b8j6hZnSr0xTqr7P4
O2ZtyX8BIY9jdQ==
          "]], LineBox[CompressedData["
1:eJwVlWc81f0bx89xKPuc388MyUoiI6PBXd8LqZCGZJaQFIrWXahuTSJbpGFU
GnaUjMrvR5LKLTJuiuyDYyTzdIbz7//gen0eXA/e7yfX9VH3CXY8LEShUFh/
5v/5xPeG14YIDnrYmv7CfE6b7KxMuZR9k4O2ZM6P376tTUZ0umjppXFQVWZw
wVzrStKEvay+OJuDCsqbEpmqK8le+a7ADcUcRPPdcdfijBYZa5ZBJ95ykNOF
+MesFk3S3Mnrhc2nP/v0KIHoJk1y+JSGS0M7B0mlsnrqCjVIy+dPMjp/cpBG
xYY6xxx1crLxqJUXj4MSBGXUUSN18t6ELpMpykUbrK875FapkXO6Rfqz6lwk
M7Z+9k3bCvKh7cnmMAMukmeU/i2OrSB3HTX5m2rBRZaSgcdD9qmSOY/L3kg7
cdEntdjRLQsqpHNtqFeKFxdVVngzYveqkLQBC2GV41xknrtPvO6VMnlAjbRf
HcFFZlaYgXOCEondq/9mXc5FYWvkt3+5rkhWVUT/86mWiwqsbaxN6YpkYMcO
jT3NXHTQ9CCj/74C+V6u2d+TxUWDlSFFRrXy5CnTZKmheS6SLQuqP3JAnlyx
d19xII2HzvS5JMtw5MjQhE52iAoP8dxNWpU2yZHaRffuC3R4qMurVU17QJZs
+fcARJjxkJu6wE0kRpbUl+iPTN7JQ3GU1Y8rhmTIvuss+cJLPDSroyj2thQn
47LzK01jeShMuemeUjBOWrwL8nx9h4d20vw+BOniZApl5nF9CQ8Na35Tf/YE
I23Pc00HBnmobMz4rcsLBjl/522H/y8eat89Nu0WxiAflYdfmOLzkPS6JYYf
rBgkf45Wy5fno/zNG4vdiuhk8QnJvYq2fHQiuP5hhpo02XBXJrTAmY+ujU2+
qK+UIpm1SplWvnx0+nVV2HEXKVJp2eqxY+F85Pz9ZvSn25LktWqbq9WlfHSk
5VZIhLEEmTG2I8f5HR8NBQcZrP0hTpbLOX0Za+Kjl+8GQstuipMT/j7K8uN8
lBvlFKcwLkY64+EvAjQW0X+ldP8EUpQ88VdEp8BwEbWe7Va4GCpKRvvFCm5t
WkTCIr3oPxNRkqi8Z0+4LqLUmpZdT/OXkjqHygdk4heRwVTr2tSCJSTnxS+Z
t9xFlMWOf8IcFCZlf7A3OooJkGnL376bnguTBqIUr2F5ARK1xw6FXhAmD+2X
zseMBehSpqNwlIIw2SCst8XvqADtWGId5O9CIzP2+Z6htwlQcaaXSudvKlke
Hng3u1+AqGakBd5MJVtyTpEbpwQosTnIf/AZlRQOhyUlIhRI3mb22cadSm5o
2enYpUaBpoAjsZnvKOSD84EsIxcK/L0ue/fq/QLCiBRjRx6gQGI6WaK5QkCQ
ws9Eeg5RYHG5j3xn/yLRGzuoFnuCAvxVW8/6HVskVLMOuIxGUcA2WSg/L5JP
3K3dVfvgDQWoufH1Wl1cQldsspldQwHdp++b7HK4RIVDTM+ujxRwtrI9zT3L
JTra6zn8NgqYLPzVOC3DJeRHLde6/6RAdY5mH3svh0iSMs3ANagQVbX86zUW
m9Bw/Jrnr0OFiAgpbAfBJopTT1SQBlTgesfWXrjFJppWFLQGWVDhfCv7rQyw
CWljbYnPTlQQa544xLq3QEQ7K4ZcjaRCWRGNPeI7T1zJ5O2ZHacCrPStlTGZ
JXYblZ/Um6GCUmeT6Bw+S6hWn070+U2F5vqYQtmZGaKyn9XUJCIEmakXSiVe
zhDTKzt3FagKwVf5lpzqDTOET36pg99uITjbrHg1a8c0YVkRZNvxQghWm1+X
PHJnipC20/WnVwqBe5vIqfzwKaLr29CNraQQVAtUp5T8pogQ3v76lw1CkDKq
YXbSZIp4juy3JQ4JwX2fuXhW5k9CrW6VjZ0CDdwjHvmPrpgkKC298CaMBhvj
n2R17xkjro1WPQi7TAML7In1fs0xQoySLrTxBg0qTc3Nls+xCFzfrbY0hQbH
P5MNPndYxMrI5m1Fz2lwRLFokjk4SthZ1Ox8yKRBuka+ln7kCJH86NH+G47C
0HP2Wrnw7BChfcYvxElXBFLX5CpL7u4j9M179mYaiUCk8+KZBMM+wpTiasha
JwKbDU1Njeh9hFWMLTPcWgRcKzRfk429hGf2Gqe8/SLQQfrNLt/VS6S2ThsK
xYvApGe1m0LOD0LELHy4aEYEXj/7uLmt9xsxOHfbWeLtEjheslbZjWgh7IYC
LiadFAXxvLocZeVXxM7BBD1VVXE4UtYn51lAINY7n0v1BRIQUVjqMCLXhlYk
dgTEvZSAMbtTauKObcjJc+c+p9cSEN+xYcQhrg1VsTfq9tZLQIJw6cpNS9tR
kj7WujAgAVsvhpl84LQji9vEqlVKkqBi75kxM9KBYgJUvlyPkIRQRQrXbKgL
Va9PqrCPlYRhfQNWlHY3mhcWzcZuSUJEj+EuxtFu5JU5E5L+QBL417/1vBrr
RqatnzRK30jC8fZXZhfmfqDuTaFnB6clodllA7MyqhcZYO3LrQ9KAS1TO+p3
VT9ixjKvpByWguGFkRBKXz9KF18YHg6Uguycd2tX0QaQpLBiSUyIFHyXrDrQ
tm0AsebdtrYnSsHeH+uDqr4OoMdd3UH+tVKQwbhuK/dzEKk8GyLiV0tDVKiy
ZtaWYdSqNa/VbygN/fXHCj0Dh9HNB0uiTddJQ6/NFi27pGHEubvKqdNKGqxG
ljTm9A6jjlj/EY390qDMngm4Gz6Ckk9PMF7FSQNrh+Zied0oEkdz3l0z0vBV
i+GA/zOOQix1RF9xpCHioPEjl6JxxLT2KIyn0mHC/Uv7SO84qtlezbGi00Gc
X1s1vWUChTnGJufo0oF52vIzyZhEY4dXvj/rTYfGRxsfmpX/RO5HXQN3H6VD
bbrRm1eTP1F9wE1MN5gOJS7XHn/Cp1B28K8D3RfosN5199h6uym0P/TtvHUa
HYxVbLMPvp5CDTH7dLAvdOjwsll96ekvZB5/o5HVRodrOqYei+9/oWeJr8/U
dtHBMbyh7tXgL3QtVb36HIsOC3m5Dzs1ppFq0/yan0IMCFaTLhE8mEbtnTXv
96kyoFe+6ER6/gzaNuG+oLGPATYNDa7POHMoQ/ZqS7grA34UsT/kqs+jWYu8
oi4PBlTyn7qL2s6jrGjukVQfBny+n/3ft7R5xFl1v0PsBAPulhDnRDctoHyf
7oqpaAasSZH7zU9jI6FokVSHOAb8tXcy42wdG7kW65/KTWSA3v1AK79ZNhKh
/KPrm8YAhwSv8ZI9v5Fnuuq9/x4zYHpTRjjCOYjRcfBCFcmAgD3XQi0LuMhP
EOmqXMsA5dOnf1sNcNEb7eemIR8Y4FFT+XRgGQ/5/02ZWNvIgPztmhPSUTxU
gz848Pg7AwQ9FeZHg/nojEP/5ph5BkQnVrXZHRSgT2fElUd/M0A0f5dCX5YA
qd03XrDhM2DVebt3jgMC9C/rSpGAhgHPIuvJcTMKaN/QVDuNYeA/7t0Y8acn
Omp8qe5rMLjnd8I5eI4KU5bflC4aYpDE4PWmKgvB0updplnGGOg/+Kt1q5UQ
rCPMjzA3YPBw6509OxKF4NZrxr+nbDCwvdoWb7uOBvnmEcyU7Rj4XTv2nO5N
g3cVXEG5PQbUIlZcaAwNpsuYxoI9GJh+9HfYPkSDXS/fpN30xCCKRaZuyxQG
PxPjkkJvDAypZllZX4Thn5Knn5t9Mag41x1BUkQg/3nSokIgBvbJJw/5HxYB
8YKjvtnnMNid7PmBvWEJ1D2WNXqbgME31WGbKGlR+KEVbdubjIGn8McP6jtF
Ye6RwId2G4OgsHST8ThR0HrISrFNx6DSIW+ThawYXMkguW05GPDFLLzbDcTh
7vJ1cr/zMchRD0OMUHEovp9noPL8j69lzb4vteLQezfV2+cVBuzDT27QvSVg
8+1jHyZrMIg/O3dAsVASnOX7e7E6DK5UCIv+FpGC4ykuHNOPGDxLCvZt+fN3
7idb6Z//8ocP2o1vlkkDJ14xeWkXBjXOjI1Rz+iA0+PydXswiDbcmrVGjAGr
42h1Dv0YfFx8ce4wYoBrzCQ7eQSDEjur7YtFDCi9UeupNodBoOXkP4cf/eHY
fVaMZGOww/JSzMIoBnclv36d4GJQ4BhommeMw6WEnq2vhXAYlKkU7/mEw2lH
JkVjCQ5JmotwW0kG/GQnKm+I4XDYevORvmMysCONY+DMwOH4TJNY8TJZQO7U
0TcyOHRfZy8JPyP75+5FH2kq4HBeIXf/ia+yoJAlp/BrOQ5X1qHxwDQ56H9q
JLiph0MIhZTa6agAbf7rK6YNcBCSawwr+KwA9XqbT7v98bJoW5Pyy1YRCors
h7U34vA5dXuln/MyyDrp+CD2LxyWKlVe2j60DJJM3DxmEQ5PD/TNnAxTgpAy
vy/VW3H4fqd9mUeFMgSGHo/SscPhUEvGL1lfFfC0OGMd74CDNy/USUphOVgT
l8v2O+EwPBbaDmmqsO7yjZPvXHDIMGybGD2yAnSs4/V0PXBwTlIUc1NXA+kP
9zMXvHHwaCobLJVWB2rUIzfPwzgUFoa4vY9Xh1m7XJn3R3H4cMVjIUVRA5iS
xf/qHcMhb0hPsi9HAzobyyKTgnGIX7XtxbktmtCQUGX5+xQOJy5ert86qglV
ju+5B8/i0Hx5bZ7HHS3Ibv8arH8RBy2J3A5HNW24nda5+tYlHOw7vq/R52hD
tHvvAOcqDkVp0LB7aBVcUBlO947EgZn8vnBgQAeCf0y41EfjcIG5/UcAezX4
ZM1ihnE4DJBKP3tW6oGTD/dzSiIOXPuEhIbgNbBNSyiCd+uPrytzb9A3fTBn
isKhNBxILdfcoQBD0H9G53y8h4OMh+n6ymQjUAuQf2mUiYNB/zud0ZtrYebn
WueYLByIhI4xK+5a+B8fGOU9
          "]], LineBox[CompressedData["
1:eJwVlmk8VI8Xxgch+3Bnhmbm3iFSwoSobN1TKllaKJIkoZK9kIpKtFoi2SmR
ok20SeHeJEJky5YtZMmSH4Os/f1fnM/z6jzPOd/z5ig4elke46dQKCNL9X+d
SBdLjNJCIL3h7iu9SWWyV/9vhYc2AhV2EXY//ZTJBCvz4qSNCNyQkGtseLmK
NPe6n1+mh4BJogx/wLwSSbnJy+EZIhBP25GWaqFEvk7fmaWwBYGwodf62rmK
pEtBSurubQgMFYqEmDIVSXbjWFyAMQIuGmLZUuErySsiiVe/70LA4y4vqfqa
ArlJcSSQ3wKBrPfwIlxSgRw22OK7bj8Cj8/tMr2QIk/u9x50vGmLQPHmUBWj
aA65PNTQ9u1hBA7srzWVrMbIgge3LXocEAiPP5BHQTBSqUkXDE8gkBY6e+7X
GzbZPBax0dUVAYiytyZk2GS4aDc33gMBGUZbTPgZFskzDEX/80HgZICshqkF
k8w60EHD/BHQ1D2+yq9sBWl3Skvc7DwCqQUVo0JGK8iSjNbZjCAEbndU5Sua
yJFni7jjtSEIIIflKjn1sqRac/Dg4jUE+ofdCpyOypIxYqrNNhEIbC1FxH7c
ZJBOpwPeiCct8T0dZrdMkE5u0Op4o3IXAXS/VqjVcxopOg5vd9xHQCu6wO6w
DY3MOSWUF/QIgRCTowdk3iLkvPftd7yXCJSHho5RImTIbxq8d9JvEagKzl3f
byxDpo9Z53Pzl+6DdVq+XCZDmniz37sQCOimfbHJCpEm47wyP7RVLvFoJxOU
YqnkyXWiBTPVCGxMsXDSO0wlDf64FzDqEJCzdux5oUwlezy1Cvc2I7AqZLhT
PECK1PAsLCrpRUDbFn+oPSFBCnDliZ/9CGi4jPcWx0mQjSPBxOJvBKaqn/sf
MZAgAz12kpv+Q8CMfdDoQoQ4We5e//HZAgI57EnFm9vFyBS1DcXlFBpI6Z9J
/DgtSnoPJxT3CdAAicSlbj0VJRnu9p/kRWngpqvkkisrSjq6DZbEMGiQ6GIm
3E0RIXVUzT/nrqBBmv2Pb2eKlpPLh7I/V7Np4GJ0+MTOC8vJF66+pcsVaVBu
8Jh6cVGYnD/5ryxwHQ12JUfPm0gKk99UHL8katFgctFsX0uDEJk+WPLlrQ4N
VkVfeHQsRYg0ORlaPqZPg2DbL5G2XCEyzoVe6byTBj/QPj3hw4LkuhOq1eZH
aWDWJuR8v0uA7DjJ8XruvDR/0V92VI4AGe6OUCVdaNC6tnxx+2UBcvDUnMU3
Txpcisk6OqYkQD4IrPxuEUgD5yleUqEvPykb7dZuHU8DSKPnpmrxkaUxRy7m
JdEgLqjPa0icj/SN38eRu0eDWPP3Y4X9FLI2Rf9oSwYNNPdHmwzdo5BhmWK/
Dr2kQYfAvRg5hEL+K3g67FBFA5u7b85LKiwS2URqxMcaGkRvUNwk2LtA2BXf
4a5soEFjTbf1h8wFIr8swLunlQZRLX1XrTUXCJ86M96xARqEVdS/7zGfJ/r7
h+ZcBehgFar3ISB9loj73ZlSKUQHiUAp9xqvWWLbSL2hmigdauTPvM81nCXS
xj9cGqHSwV/SU4L6Y4Y4tBAm4I3RwfuXR+80a4b4JqMm5qdLh6f1XKkrr6eJ
zR4eg8kGdGB6zPe4hk8T2WXZZcU4Hd5cCtud7TxN3ArUvELdQYd/+sVq2xnT
hHnfhoWnlnSYSUpLCr8wRVTkb/nT7UaH/Gj7VOdDk8RnhwP1e+/Rwf6dcXiA
+QSh/SEh1z+NDu5i29oeqk8QGfTWyHsZdNBOPKQtKjVBXKmwMx9+QgcXM+n2
C3XjxFZtx8/X8+ggjvmMzR0aJ0hhj7yiGjpY3vt7/fXZ/4gP2cHJagIMGOoM
8XZ9/IcQMrdixgsxwHxynh3i84ewGFydyCfKgO0fu2YnDf8Q/YpVcY1UBlDT
++78qh8lkETZ6CCMAZXxsPOrwCjhFvLsRoMuA5oo12ZLTw8TLJtGv0BvBpTo
hdoUXhskjk9m8fp8GJBbyBVVsh0kcqMDfCz8GRC/MXe4VH2QMK6SP6V8kQGF
Ev+OFH0fIHy2urnXhDHA+LC+hcOaAaJSjeKklMmALJXS1tamPiKAb+3er+0M
cHiFqngf6iX6tok1K/9kgOWzXJsGnV5i743hI5d7GcCrP27sQO0llKReeG0Y
YsB378K4kc89xFe2duT9vwyQ9vR8V6vVQ2CbNlf7IrLQHvGD7oh0E8Weluao
iSwgBXeHu1o6CdG28zs9X8tColbZv3sdTcSvRwoxqYFyMO1u8WW8pYSIWbNi
Wb7VCrjxU904sPcxHpV0vOyoPBPCG1QcthnU4P5ngn0CFZmQlXmpVvVUDW5v
eY8Tr8yEvfOeR9Y8qsHVRBv9v6oxYdJEaJkjtRYvP7d9zUZdJmjn1Ix0/qrF
+Q8q3RS3ZIL3kXLSLLYe95PtNs0LYcIPdlHT2uVNuG3M4WrxfibcTK9GbC07
cPYrUZbbbyZsuDzJPR3TgXfW5p0oH2FCXUlwJNHYgTtLyfBd4zHB1t7u3vyh
TtwztHT9Pz4WcFPJjhvaXXhw0LrE/9gsENxktIga/8Qfu/M5N1qyYKI61qDi
Sg/uHpado23Ngo6Hi3jj4x6c++TQQvRBFvBUd2Uv/9aDv+x/E7fHgQVxAeVR
3St68QJH1/IvHizYEUFi/rm9eI1NPffDDRZI6ri9jBj4hf/d9nAmtYgFVaWN
8XLnB/DAD6khJR9ZkB4mliuaPoBTtJIkBktYoPhspa56xQAuzIlU0KpkQVJv
JCnIGsQZM2dNSppYEN/VaEAjBvH1z80TB8ZYUOw6XaIiPYR70nmbNBXZoBgk
sJH4OYKPh40WWymzodxIL22cOor78Q+an1dhw2U+9I8bjOKBf9odPq1jQ1aD
Scz6+6N4WHnZDSsDNkhuNt2zzukPnnUhufmcFRuMmrQ49QFjeM+vrWeLr7Nh
o8ajtj6NcXxranX62jA2MPcmnDfaO47ft7Gtir7Fhokwy/PtXuO4feWplU6x
bPjx3k+j6sU43ppz/6vAAzZMmQg7vdGawOsCFuW3F7HB6Tv19vXtPFxTJ9Ts
+Uc2zC1afOee5OFRo/Qz9M9sCP+3eUAxgofvPqpe+auSDUMrOy3nv/Pwih12
ftdalvZbo3brptskXiz9vryMxwb/F+qzOzKncIXK7bx1f9lg45j11LVmCg+6
UoslzLHhdGLVp/GZKXzz9ICPCz8KiSamQxt2T+Pv22QxESoKUpKzt8i5afxl
pt9pU1UUnr7t77/uPoNLH+W7+5KLgnLhudC6lBncmxlRxtRCwVq2OSqtagbn
RmSwhzahwHXSvNqoMYs/OV1fGrYDhZGPndE9C7N4uqEmq+ooCpU9Bb6Lr+fx
4t2iIXPOKOT8jP0293se7z7S81vFBYVLcee3xCos4IrBse+veaLgNKKjmxW1
gGeUzhyEABSyKuwOPzyziD/cU5zwKgYFU7q9xAUtCpQ6JFO641HommNYKO6j
QN8pXxdqMgqFQsn62r4UUI5R3uSRhkJCODp9L48Cj5pDm5SzUdB7V63fasQH
WUf3MZLKUCAtett1fPnhy2m1i18qUGiu5Ym8S+GHgRDBvqkqFAxnR3VqP/PD
mkd5b/Y1oDC06PulcYUAPP7NspL4icLs7J+ehHIBqJjjFej3ovDI+O5xg2kB
+C1ereTaj4I9pzMobtUyWLsuiFc6gsKUVVlD0JVl8MSn907QLArP282N88wE
oeJK4Vz2AgplXs1t8ZcE4XdsnFM7BQPrTclUm9eCoPpu53o9YQxWZ312ipQX
gmfzz+omEAxaThS9vLVMGJ5f9ZM+oY4B4rzmjgWfCAwbHA6+qoGB4cBoudJ2
EVDjbZt4sB4DL1zB1iRUBJ440r536WLQe3CAP0dOFLLwVwm2OzDw9dPI5BqL
wcBUksg5Ewx09nlv+RwnBquzg8/Hm2OwUxz1EB8Qg0dsS7sGSwxckinH+yLF
IWNmjLP7CAZlqdkbr0xJQG9Oc5S7IwZ6FivrrK0kQdGF5As7hoFTsnGWw1tJ
SG+M7ClzW+ofynb1uCQFqa+4mVvOYpBaq3prOp4KHa4MOYcADLCujOzAWipg
KxdvXLyIwaFuu9ZL4tKQElXl+uEKBgyXmJjN16UhycOdq3Mbg6pOseMht2Wg
VWl/6r4YDLIM+6tbmmVgRZs+9XQ8BuEpdkLbViKQYCo2nn0Xg83H5+hvPiDQ
xDfhWHV/iV/KE9MxMRow8lvrhx4s+VudNsqyX/pzVj95s+YJBs9b8FOi4nRo
6LitbPwcA1Oxsvzp43SgxZ2LP5aDQeFKZPtACR2il5mcS3+LwZz6+GOfUAZE
/ew3YH/CoOBdT8vmLXJQk/DtuV4pBhleDPet+XIgtTcPO1iOwQHm/YUunRVw
q+gaJe4bBrVPHwqKb2ZCtZ/nqdd1GORqRUbrVDBBQt26u+47BhNyCtd07FgQ
nryqRKoNg8tBlg5b7rDhq6WEDrcTA7E+j/TVuiiIiU4+NO/GQIT2UTC5D4XQ
syXXbw5gEGGgxW9ty4Hydc/+Zg5hMFyoLT9ElYfl/XdOlo5ioKI+yX12Th6u
WzmZCUxikFBwE8oPKUD6nja7Y3+X8iuqrr7tUoACEyvPsjkMzJO1u997rIQm
o+pLKv8weHr2jk6SgCKMGxrfDuPngMdwWpfmA0UQ30SmjwhyYL+uldSFXUqw
Wkv39R4RDsh9ejGQKLAK7JRVmxAqByKFw53jE5TBXz5jwA/hgNLU1gsPzq+G
aCY628TgALk+OWzEcw08o8WJ6TE58FqkRrXEXwXKJKXQFJQD60VrJ9rj10L3
8hvcRXkONDmfcDxVpwrz/HzgoMSBjPTrBftU1UF24ZxF8WoOuN6N2K2QyQWt
6XFHJVUO7I5FTfNXacCu/9x8r3E5YMYvnnNbShMkWxp1ojU5QEQ1D22d04T/
AShhw98=
          "]], LineBox[CompressedData["
1:eJwVkXk0lesXx13zcDJn5jzveYUooeJW6t1FpWhAg0yJRCnkki66SugWolsZ
I4kmScntV5HnCXFVUtJ1MtThIIpk7Byd6p7fH3vttddn7e/a+/ul/MPcAiUl
JCSOi+v/PSjadsOhOjYUteXfXTplQiQGy5PrGtiwwU/FtYIyIYu7Ll0/0cwG
FSeXgfgLxkTVMlhQ/pINk4dh4SEBTYbjLddyX7PBLdjJfIkvTYrpqj6zDjZw
LpR9f+XAIUejji107WZD1Jlnzb/WUsS7cW3C7zw2OH9JGj6xliKaIW3spwNs
GPRLNKjfjciX6tzQ8SE2VL94zTn1lU2eK+96pDci5jXG9SUL2CSxYsQzZIIN
o77HH/lWGRI/6crrZ6fZEK09dLNmliGx3xYjqBKywWWQTD4IMiAzcVLOshII
bDvkl5+30ieDJXsicn9BcHAVWzO7QI/8+6Ipx1IKwVEzY97v6nqkAmUMbpNF
cInqWh6rqEsK102ofJJDUP2/kzKiNB1yOmKbXbwCAk7LqWEDLR2yr94g+SoL
gfKITtSKhdrEYyS+bJkygt2C8yZPG7XIGi1+W4sKgs1ZlIuSnxbhBF+nBeoI
ArJ3yH/OnU3eKtk+dtJFkG3tHnZxsSZpWJQz2KWHIEu5sdGEr0EqfUQqBw3E
8121couzGiSjvNY3h41AnaRk2s+oEyf3TaKhOQgeOMR23e9RI7ZxFfQfpgjO
F4W4+BSqEeOS2c7qcxE0WvPcav3UiMTXzpyl8xAMjETfTR5QJfdzg+1SbBCE
vIrUs5NWJVfqnvmyFyFYIV1qZ1mgQs4NWybfXYwgaNcn6yO2KiR8xVRb568I
7DKra/aGKhOz3mMR8xgEqR8eJM8RsoiWUn8OAQS3apdUiwpZRHqR0+MtqxBE
aqidI+tZhJekrHpktdhvrk9Y82Ulkj03r6zZGcGylAt/e+9TJJMTa0qOb0Cw
utZX87muItlUM35hySYE0txl6wVPFYis+/rUEjcETi48iw02CiQqTrjvyA4E
o0UdtpEa8uTlmhL/hV4IZqwOd25ukSPz1Fw9h7wRKAY7yCWlypG+kmvrtvoh
mChn3XmqKEfcWrabzQ9C8M/fH0rJbFlyK0cK8YMRxFydX+3cKUMUdpdr5+xD
cL9ZOb3/kgwhAlk5mVAET14c9ja1kSELOPf6uyIRbIz5Xsv2lSasKM3LqQni
PJ1CeH++kyTBDMldlSj25/inR4I7kqROYf9fgiSx3jVugG6yJIkpqDu2+yQC
+ZYVvV5WkmSoMcLPPkPM/zisG5X6C2nQe2U4nI+gw6/Ssn2nBOH0x80uuohg
7Xh00xl7CXKk3GyWxyUErFgrhQZdCbLI8aiorljsb9m571TpT1x0YEFnXimC
lS2Bs9qLf+B4kpbt/EB8//adsfE1Ivyxm5wTPkSwKP1glWyyCG/7NpFxtRpB
t+F3bduNIjzP1vOkFEHwh7en91HeN8wtNYmpakBwvfXW5wOsb9gmC3tZtCHQ
IWONTLwQ51eOb3/7Rpz3/gQyukmI5VvnbDnRjmCsRf+ZASXE71mpLvwOBM9r
ftvbXy/AqQkey/N6EPxVqPpkWk2ABw6MGSmNIpDKzP0USqaxa4qx/oMvCJgz
ZQ+lsqdx9bXt2kHjCOjWfdNfw6bxWf4jlbopcV5Kd/IEaBrDjlMSsSIEModm
VVifmMK5jnTvRwUKzIuNnrgHTOIN+ltLnhpTwN25oMbUbRxn91kSLxMKPnhk
xK1bPI77yuQ7h00p4PCjkgt0xnEcVKuqWFCwdcjn9fv3Y/hmIB3nbk0BYy9a
XxY+hhVvj7l1Lafgx0Sc5HDuF9zoeFri8zYKpMdnTIMMPmN15WD9eA8Kvkt/
4a4eGcG+7SttVT0puBfbt2dvzQie3jsVYuNDwdqQsnexu0awSbp3+6EACgKG
rjvevzGME9+a3/oZRkGg5+Nlg06f8MrQRi+1kxS83oLqD5YP4hnu0Jr6UxTc
5XF8bBIHcaUDyyY6lYIVjjoGFjsGsYmuq3x3uvg/9r6AWqlBzKrvqLyWScHV
zUbfo7w+YK7u51lQTMGtOZPFQZoDOPyJJgnF4v3N+fpp1/j4ooG/8fMpCnbr
OJ0tiX+Hly60sPT/SsFjt3HTqJXvcNu6STuBgAKZ+nSX36TeYfnoZGdjEQWu
zV6M8EQ3Dn91IyJOkgPuzLUew7NdGJInyDwVDqR3P0jwvdOBe0cTfdLMxPyp
Rk2mYjs2rruaudGLAx7awrxE3Zc4Y36teWsNB2SvFFgk3L6B90xIv2oyp6G0
yiUlIb6e8b8zjk6m0xCt0nPBvL6d2Z/gLlp/hgYJxRS2vTSXiXKvbGedpSGs
lIxGO3KZP6eiTmdk0qDcaXg7/AmXubVE+C0rn4baOq/YQ01vGeHjn/9eKaXB
2Cbyx9aOTiajlZVW30hD1o4jFX1qPCb38oHg5CYa8po2Ws1dzGMuR75wcHpG
Q6H2P+w0Dx5zTytj5tkLGhz437iVF3lMl6dG8Os3NDwrX5V5ekEPY8rXdejl
05AyfV+5YWsvY1UZY1TcT0NxyPwC69heZmlSpzDwAw3yrTrL6gp7GRfT/NtD
H2lQONcY7jncy0SEIKOxMRoyi47zA5P4TJz9MWHFBA1LWUtHlG/ymaRZvW2R
UzRsNOa86mnlM9nll1MEAhrmOHaby1F9TNFR6aCHM2K9qeArnk59TKlr4Ko4
EQ1v/a/IdYT1MZWcBsMVP2jAUpfeJGX1MTUTJsKfP2n4mmKU44v7mP8AgOni
4g==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
         Opacity[1.], 
         LineBox[{{2.0408163265306121`*^-7, 2.0408163265306121`*^-7}, {
          0.003067179205596267, 0.003067179205596267}, {0.006134154329559881, 
          0.006134154329559881}, {0.01226810457748711, 0.01226810457748711}, {
          0.02453600507334157, 0.02453600507334157}, {0.04907180606505048, 
          0.04907180606505048}, {0.09814340804846831, 0.09814340804846831}, {
          0.19628661201530398`, 0.19628661201530398`}, {0.40908357085458646`, 
          0.40908357085458646`}, {0.6077788357015209, 0.6077788357015209}, {
          0.8025764881887605, 0.8025764881887605}, {1.013884691581611, 
          1.013884691581611}, {1.2110912009821138`, 1.2110912009821138`}, {
          1.4248082612882276`, 1.4248082612882276`}, {1.5676075512846925`, 
          1.5676075512846925`}}], 
         LineBox[{{1.5739851023051006`, 1.5739851023051006`}, {
          1.8303454631887173`, 1.8303454631887173`}, {2.0425737680483995`, 
          2.0425737680483995`}, {2.240700378915734, 2.240700378915734}, {
          2.434929377423373, 2.434929377423373}, {2.645668926836623, 
          2.645668926836623}, {2.842306782257525, 2.842306782257525}, {
          3.0554551885840384`, 3.0554551885840384`}, {3.264705982550857, 
          3.264705982550857}, {3.459855082525327, 3.459855082525327}, {
          3.6715147334054086`, 3.6715147334054086`}, {3.869072690293142, 
          3.869072690293142}, {4.083141198086486, 4.083141198086486}, {
          4.293312093520136, 4.293312093520136}, {4.489381294961437, 
          4.489381294961437}, {4.70196104730835, 4.70196104730835}, {
          4.709200204874485, 4.709200204874485}}], 
         LineBox[{{4.715577755894894, 4.715577755894894}, {5.095019551657784, 
          5.095019551657784}, {5.306110548558265, 5.306110548558265}, {
          5.503099851466398, 5.503099851466398}, {5.716599705280141, 
          5.716599705280141}, {5.92620194673419, 5.92620194673419}, {
          6.121702494195891, 6.121702494195891}, {6.333713592563203, 
          6.333713592563203}, {6.531622996938168, 6.531622996938168}, {
          6.725634788953437, 6.725634788953437}, {6.936157131874317, 
          6.936157131874317}, {7.13257778080285, 7.13257778080285}, {
          7.345508980636994, 7.345508980636994}, {7.54433848647879, 
          7.54433848647879}, {7.7392703799608915`, 7.7392703799608915`}, {
          7.8507928584642785`, 7.8507928584642785`}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQvT08X2RfrrwDjJ6hOXvtWW8FOF1/oHeG904E7Ssd
uvSUiiKcdsw7Hi3YiaDnyySpnPmKoFUOL5/mF60EpyfoHtK6tA9Bp31muXhS
SxlOJ238pNDZj6BzmoL/eE1E0KXBW67zTEbQHV9L+yZMQ9DrLH/+nj4XQf88
+P/astUIesIlnt4jxxH0rMW5GW0nEfTiknPOHqcR9DaxCb9On0PQd6KEMy5f
RdDqjyWdHz1G0AZbquSWPEXQVq23f6Y+R9A+6nM3vHyFoIuyFeQ+fkTQNTaN
Pzd9RtCtvI+ulHxF0DPWL+7+8QNBL2pgSd/1C0GvDkx1qvmDoLcoHZO1+4eg
931W+/n/P4IGAGIP8p4=
          "]]},
        Annotation[#, "Charting`Private`Tag#2"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
      Slot["HighlightElements"], 
      Slot["LayoutOptions"], 
      Slot["Meta"], 
      Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]], 
            Line[CompressedData["
1:eJwly3k8FHgDx/FB0iGUkJs8NW7RJcX3V60Kk33W2batoiy1iA6lpPbRJuuo
bETriLSMXFnZSI7t0BhKERMyGM1g0MyYw1Wentfzx/f1/uf7MQ447hEoT6FQ
kr7uf2bFBCy0PZLgtOji/33WbkTzNTqKSDeVyANfnX9RF2tkFAW1jjnzjV/N
akgyVDSKxxOHkFrfr4Y4ng6VGWbgUI/OxHbjDLTPBt8UGNKxXvNSnO4aOpR6
BqnjhtUIsq9xLtxQjdzmnAi+IQPlNvF6b04yIE5/aM5OZOC15w7Z2o8M7Api
ct5OM9BdZThw16cZYwoy75r2ZsgX2jZpODBh7+juEB/XAtV3LO8J+Va0lc3J
Uz+9RqvsPivRvQ0Xmy1dbQ+2wzHh4d7guXaUlsX3hFh3gxJl6UWt78HoitFE
V/9uGB0nkfTZHlAjXZ1Mb3Yj6e27Sm/7XtzZtjSXM92NfaykEOuKXqQwEn/a
/7wHOtUWuycKPiCSc024+8AHrFqQGa2VyUbOUmbscud+3JlqyA9+NwAnx/MH
Lvn1Q5pqG9UiHUBvmMXGT2f6McxNWeu+ahCr3iZwW4r6ERyd5Vv8wyBupNNc
rqoNwDrCwvsDZxCxa16pzPcMgPLmV57fDAdBeJMxdoKDY30850s7uKDkSWt6
Ejj4pPntlptBXKQv0Ottzudg3aeIv9sSuXjJ+MmA3smBcgRL43kXF6Zec3mB
DkMo+cyVFBznYTiYWtwn9xHhJ7P76guGcSzlQl3bdS6O+tcv7N7Gh7wkj11P
58ImW/2wNIiP274vKWX/cFFEbThO+52PZj31nUliLjgzCtsLR/mwKChsctnH
g9PFLpZt5hjGHre3/WM4DP0fKe+slk4g7KMZp7J0BN6tOjy7awL0+71f1MgY
gd7F87K99wXwZF21bh0aQVa3z1+3mwSwZ/KiPuqM4m5X4BCTIoTCg3tqmnGj
mA973nnntBDp0cZOZw7yIWetpfrkqAhLpG2HY8/xQfFKEbjGi3Dh+KX4a6l8
2EX0dWvSRQgIYHcUMPmojE07EjIiguWerJ9Zm8cweMUh2jR0Eo3q2hlb1Mbx
tphW8/wXMTYkvaxzthjHSGAjl35PjD8Xnh36btc4dMeyK3sZYiROd9ocix7H
zKtInfXqEviwb764PTyODQ2ZjS/oEowWqYlnGyZQUaVoVMeTYonxZSrbXgCF
7VqFuyqm8XLbDZsYZwHyU1w1S9jTuLIve7O+hwARFjljcctmIH/90e4ffhbg
yPWylrxjM5j5MhbUlSWAjedbZoH5LPi93oWv5YWwoDk+G3s6h6KpgPIwVSEE
gU1+d6fnELwy/NEyPSE6VGfcxDafMeT220u3jUKIz0iqwrM/o7embrgpSIjk
cm0Ds9gvaEmnmjW0CDHCcy3ZuZlCfqvcYHvwvRBtaxsqK30pZE/b9i1fPgoh
lOueTD5LIc+UDrhsmxfioP+tnrjHFFIbef3oI1sRPtyoNWjZJUfOpWRF+DqJ
UEqC9zYdkyP2pUVRUlcRrNn6w07X5Ejlx2fxG46IYL7Ozaf0vRwp8Zqml6eJ
sGyr6xH2KXkSEr6w4tu7IrR+J6xTyZIn5onqNRNlIpRVbyt++1ye/PnUqtmS
IcJOf0/jtdoKJNsuYLRwVgSHfLPBgCYFkqzGNM89NImmrQYB750VSfVm/Yfu
YZMI3TO05bcLimTI7zjmzk/Cu9zH3LFKkWwtUffyvTWJ+h3ejk3mC8mwy4EL
y15NIt5Oxd3dWImsjChVetwziWgDibPAX4kgnZISPDIJI+UbR1l3lUgaN//P
pwvE+JGaa5JvsYjsjB1/HbVVjKsOw+OHaItJWBH2U13EOPiy1+5o+mJy+82N
oQ4fMfbkt/RpcBcTgeGmaZsTYjCJ/kzqlSUkuzZmNbfw699RPW/0w1LC4LQV
/14lhj9bJYVpr0zES0w2b38mRhAjw6orVZm4fd/klskWw9LsjLDRZxmZkqie
9tCU4MRE3ZYQqQox0Q+YnzeRgHuIzlsdqErcv6mML7GV4M4K2t7mTlVyL2Vf
9qK9Eoj7yrMr/dVIW3WRadV+Cco6Dut75KiRuf65isPBEqi/uZ1wv0+NeNjk
NtXFSuDQuoPXH7CcxPhMfhdyQwKd2neGvILlhH7BuVc7R4IXGcbKXyaWE0rL
iOBUjQS8p3dvNcauICXBdjoWQgkOnKhSqGpWJ6xrl/NZXyQI+/VcxbcmK8mC
vzutryhLcYFGVRPGrCT7Fc/vHKBK8Yeq5bgQGuSKZWtr8kYpBp9aZhTf0yAP
PA33bdspxefL/L41qppkUd7TkFt+UmSkRdPtJjTJeoaG7JsQKbKVzPzIES3i
Jwj6RRQlxcys7oQcW4s8dFJO25sqRdL5ucOvOatIf6Cf0Wze1z4ynf2fMG2i
nFReVFguBV/7cYvDvDYJ6PGqV2iRIkwW0+m3QZcs+WMgNOK9FGNS5rXcTl1S
sT9Mj82VIkV5TOvsJT2i0B0XVSMnQ0VMwieDcX1SnLHS1FRVBlMP/3q7BwbE
6/vczlQ9Gf6do/GvwIuGJJ9Vsz5iswxL2bx9tdlGhJa+e7DvGxnk71/NydEy
JmLfjus0DxmMwx8pn79lTDK1/FFzUAZrl887JgxWE+eu8XFqqAzaayZ/LS5d
TSbSzmWmnpPBytKy6+JuE5Lmo+SmcFWGhZolZbRRE8J9Z1TYlyeD3qljCxQ9
1pDk1BIfWrkMy+x+V/tZey3Z5O2gWPNEhu6Yy2dffVpL+lY2/UVlynDPq8NM
1EklcR2eAaksGXLjVG8PtpmSdTf71RS4MmS+qP1Jsd+MsDxD68MnZYhk3TGw
UrIgl9RnQvsoU8hJy0yucLEkpu1X9GgqU2hNOnky9b4VaUtRZ1brTuGXeNGm
AlsbctbjThTVbAp0jbHGgfB1xGiFlWnqpingyS3dZH9b8j6hZnSr0xTqr7P4
O2ZtyX8BIY9jdQ==
             "]], 
            Line[CompressedData["
1:eJwVlWc81f0bx89xKPuc388MyUoiI6PBXd8LqZCGZJaQFIrWXahuTSJbpGFU
GnaUjMrvR5LKLTJuiuyDYyTzdIbz7//gen0eXA/e7yfX9VH3CXY8LEShUFh/
5v/5xPeG14YIDnrYmv7CfE6b7KxMuZR9k4O2ZM6P376tTUZ0umjppXFQVWZw
wVzrStKEvay+OJuDCsqbEpmqK8le+a7ADcUcRPPdcdfijBYZa5ZBJ95ykNOF
+MesFk3S3Mnrhc2nP/v0KIHoJk1y+JSGS0M7B0mlsnrqCjVIy+dPMjp/cpBG
xYY6xxx1crLxqJUXj4MSBGXUUSN18t6ELpMpykUbrK875FapkXO6Rfqz6lwk
M7Z+9k3bCvKh7cnmMAMukmeU/i2OrSB3HTX5m2rBRZaSgcdD9qmSOY/L3kg7
cdEntdjRLQsqpHNtqFeKFxdVVngzYveqkLQBC2GV41xknrtPvO6VMnlAjbRf
HcFFZlaYgXOCEondq/9mXc5FYWvkt3+5rkhWVUT/86mWiwqsbaxN6YpkYMcO
jT3NXHTQ9CCj/74C+V6u2d+TxUWDlSFFRrXy5CnTZKmheS6SLQuqP3JAnlyx
d19xII2HzvS5JMtw5MjQhE52iAoP8dxNWpU2yZHaRffuC3R4qMurVU17QJZs
+fcARJjxkJu6wE0kRpbUl+iPTN7JQ3GU1Y8rhmTIvuss+cJLPDSroyj2thQn
47LzK01jeShMuemeUjBOWrwL8nx9h4d20vw+BOniZApl5nF9CQ8Na35Tf/YE
I23Pc00HBnmobMz4rcsLBjl/522H/y8eat89Nu0WxiAflYdfmOLzkPS6JYYf
rBgkf45Wy5fno/zNG4vdiuhk8QnJvYq2fHQiuP5hhpo02XBXJrTAmY+ujU2+
qK+UIpm1SplWvnx0+nVV2HEXKVJp2eqxY+F85Pz9ZvSn25LktWqbq9WlfHSk
5VZIhLEEmTG2I8f5HR8NBQcZrP0hTpbLOX0Za+Kjl+8GQstuipMT/j7K8uN8
lBvlFKcwLkY64+EvAjQW0X+ldP8EUpQ88VdEp8BwEbWe7Va4GCpKRvvFCm5t
WkTCIr3oPxNRkqi8Z0+4LqLUmpZdT/OXkjqHygdk4heRwVTr2tSCJSTnxS+Z
t9xFlMWOf8IcFCZlf7A3OooJkGnL376bnguTBqIUr2F5ARK1xw6FXhAmD+2X
zseMBehSpqNwlIIw2SCst8XvqADtWGId5O9CIzP2+Z6htwlQcaaXSudvKlke
Hng3u1+AqGakBd5MJVtyTpEbpwQosTnIf/AZlRQOhyUlIhRI3mb22cadSm5o
2enYpUaBpoAjsZnvKOSD84EsIxcK/L0ue/fq/QLCiBRjRx6gQGI6WaK5QkCQ
ws9Eeg5RYHG5j3xn/yLRGzuoFnuCAvxVW8/6HVskVLMOuIxGUcA2WSg/L5JP
3K3dVfvgDQWoufH1Wl1cQldsspldQwHdp++b7HK4RIVDTM+ujxRwtrI9zT3L
JTra6zn8NgqYLPzVOC3DJeRHLde6/6RAdY5mH3svh0iSMs3ANagQVbX86zUW
m9Bw/Jrnr0OFiAgpbAfBJopTT1SQBlTgesfWXrjFJppWFLQGWVDhfCv7rQyw
CWljbYnPTlQQa544xLq3QEQ7K4ZcjaRCWRGNPeI7T1zJ5O2ZHacCrPStlTGZ
JXYblZ/Um6GCUmeT6Bw+S6hWn070+U2F5vqYQtmZGaKyn9XUJCIEmakXSiVe
zhDTKzt3FagKwVf5lpzqDTOET36pg99uITjbrHg1a8c0YVkRZNvxQghWm1+X
PHJnipC20/WnVwqBe5vIqfzwKaLr29CNraQQVAtUp5T8pogQ3v76lw1CkDKq
YXbSZIp4juy3JQ4JwX2fuXhW5k9CrW6VjZ0CDdwjHvmPrpgkKC298CaMBhvj
n2R17xkjro1WPQi7TAML7In1fs0xQoySLrTxBg0qTc3Nls+xCFzfrbY0hQbH
P5MNPndYxMrI5m1Fz2lwRLFokjk4SthZ1Ox8yKRBuka+ln7kCJH86NH+G47C
0HP2Wrnw7BChfcYvxElXBFLX5CpL7u4j9M179mYaiUCk8+KZBMM+wpTiasha
JwKbDU1Njeh9hFWMLTPcWgRcKzRfk429hGf2Gqe8/SLQQfrNLt/VS6S2ThsK
xYvApGe1m0LOD0LELHy4aEYEXj/7uLmt9xsxOHfbWeLtEjheslbZjWgh7IYC
LiadFAXxvLocZeVXxM7BBD1VVXE4UtYn51lAINY7n0v1BRIQUVjqMCLXhlYk
dgTEvZSAMbtTauKObcjJc+c+p9cSEN+xYcQhrg1VsTfq9tZLQIJw6cpNS9tR
kj7WujAgAVsvhpl84LQji9vEqlVKkqBi75kxM9KBYgJUvlyPkIRQRQrXbKgL
Va9PqrCPlYRhfQNWlHY3mhcWzcZuSUJEj+EuxtFu5JU5E5L+QBL417/1vBrr
RqatnzRK30jC8fZXZhfmfqDuTaFnB6clodllA7MyqhcZYO3LrQ9KAS1TO+p3
VT9ixjKvpByWguGFkRBKXz9KF18YHg6Uguycd2tX0QaQpLBiSUyIFHyXrDrQ
tm0AsebdtrYnSsHeH+uDqr4OoMdd3UH+tVKQwbhuK/dzEKk8GyLiV0tDVKiy
ZtaWYdSqNa/VbygN/fXHCj0Dh9HNB0uiTddJQ6/NFi27pGHEubvKqdNKGqxG
ljTm9A6jjlj/EY390qDMngm4Gz6Ckk9PMF7FSQNrh+Zied0oEkdz3l0z0vBV
i+GA/zOOQix1RF9xpCHioPEjl6JxxLT2KIyn0mHC/Uv7SO84qtlezbGi00Gc
X1s1vWUChTnGJufo0oF52vIzyZhEY4dXvj/rTYfGRxsfmpX/RO5HXQN3H6VD
bbrRm1eTP1F9wE1MN5gOJS7XHn/Cp1B28K8D3RfosN5199h6uym0P/TtvHUa
HYxVbLMPvp5CDTH7dLAvdOjwsll96ekvZB5/o5HVRodrOqYei+9/oWeJr8/U
dtHBMbyh7tXgL3QtVb36HIsOC3m5Dzs1ppFq0/yan0IMCFaTLhE8mEbtnTXv
96kyoFe+6ER6/gzaNuG+oLGPATYNDa7POHMoQ/ZqS7grA34UsT/kqs+jWYu8
oi4PBlTyn7qL2s6jrGjukVQfBny+n/3ft7R5xFl1v0PsBAPulhDnRDctoHyf
7oqpaAasSZH7zU9jI6FokVSHOAb8tXcy42wdG7kW65/KTWSA3v1AK79ZNhKh
/KPrm8YAhwSv8ZI9v5Fnuuq9/x4zYHpTRjjCOYjRcfBCFcmAgD3XQi0LuMhP
EOmqXMsA5dOnf1sNcNEb7eemIR8Y4FFT+XRgGQ/5/02ZWNvIgPztmhPSUTxU
gz848Pg7AwQ9FeZHg/nojEP/5ph5BkQnVrXZHRSgT2fElUd/M0A0f5dCX5YA
qd03XrDhM2DVebt3jgMC9C/rSpGAhgHPIuvJcTMKaN/QVDuNYeA/7t0Y8acn
Omp8qe5rMLjnd8I5eI4KU5bflC4aYpDE4PWmKgvB0updplnGGOg/+Kt1q5UQ
rCPMjzA3YPBw6509OxKF4NZrxr+nbDCwvdoWb7uOBvnmEcyU7Rj4XTv2nO5N
g3cVXEG5PQbUIlZcaAwNpsuYxoI9GJh+9HfYPkSDXS/fpN30xCCKRaZuyxQG
PxPjkkJvDAypZllZX4Thn5Knn5t9Mag41x1BUkQg/3nSokIgBvbJJw/5HxYB
8YKjvtnnMNid7PmBvWEJ1D2WNXqbgME31WGbKGlR+KEVbdubjIGn8McP6jtF
Ye6RwId2G4OgsHST8ThR0HrISrFNx6DSIW+ThawYXMkguW05GPDFLLzbDcTh
7vJ1cr/zMchRD0OMUHEovp9noPL8j69lzb4vteLQezfV2+cVBuzDT27QvSVg
8+1jHyZrMIg/O3dAsVASnOX7e7E6DK5UCIv+FpGC4ykuHNOPGDxLCvZt+fN3
7idb6Z//8ocP2o1vlkkDJ14xeWkXBjXOjI1Rz+iA0+PydXswiDbcmrVGjAGr
42h1Dv0YfFx8ce4wYoBrzCQ7eQSDEjur7YtFDCi9UeupNodBoOXkP4cf/eHY
fVaMZGOww/JSzMIoBnclv36d4GJQ4BhommeMw6WEnq2vhXAYlKkU7/mEw2lH
JkVjCQ5JmotwW0kG/GQnKm+I4XDYevORvmMysCONY+DMwOH4TJNY8TJZQO7U
0TcyOHRfZy8JPyP75+5FH2kq4HBeIXf/ia+yoJAlp/BrOQ5X1qHxwDQ56H9q
JLiph0MIhZTa6agAbf7rK6YNcBCSawwr+KwA9XqbT7v98bJoW5Pyy1YRCors
h7U34vA5dXuln/MyyDrp+CD2LxyWKlVe2j60DJJM3DxmEQ5PD/TNnAxTgpAy
vy/VW3H4fqd9mUeFMgSGHo/SscPhUEvGL1lfFfC0OGMd74CDNy/USUphOVgT
l8v2O+EwPBbaDmmqsO7yjZPvXHDIMGybGD2yAnSs4/V0PXBwTlIUc1NXA+kP
9zMXvHHwaCobLJVWB2rUIzfPwzgUFoa4vY9Xh1m7XJn3R3H4cMVjIUVRA5iS
xf/qHcMhb0hPsi9HAzobyyKTgnGIX7XtxbktmtCQUGX5+xQOJy5ert86qglV
ju+5B8/i0Hx5bZ7HHS3Ibv8arH8RBy2J3A5HNW24nda5+tYlHOw7vq/R52hD
tHvvAOcqDkVp0LB7aBVcUBlO947EgZn8vnBgQAeCf0y41EfjcIG5/UcAezX4
ZM1ihnE4DJBKP3tW6oGTD/dzSiIOXPuEhIbgNbBNSyiCd+uPrytzb9A3fTBn
isKhNBxILdfcoQBD0H9G53y8h4OMh+n6ymQjUAuQf2mUiYNB/zud0ZtrYebn
WueYLByIhI4xK+5a+B8fGOU9
             "]], 
            Line[CompressedData["
1:eJwVlmk8VI8Xxgch+3Bnhmbm3iFSwoSobN1TKllaKJIkoZK9kIpKtFoi2SmR
ok20SeHeJEJky5YtZMmSH4Os/f1fnM/z6jzPOd/z5ig4elke46dQKCNL9X+d
SBdLjNJCIL3h7iu9SWWyV/9vhYc2AhV2EXY//ZTJBCvz4qSNCNyQkGtseLmK
NPe6n1+mh4BJogx/wLwSSbnJy+EZIhBP25GWaqFEvk7fmaWwBYGwodf62rmK
pEtBSurubQgMFYqEmDIVSXbjWFyAMQIuGmLZUuErySsiiVe/70LA4y4vqfqa
ArlJcSSQ3wKBrPfwIlxSgRw22OK7bj8Cj8/tMr2QIk/u9x50vGmLQPHmUBWj
aA65PNTQ9u1hBA7srzWVrMbIgge3LXocEAiPP5BHQTBSqUkXDE8gkBY6e+7X
GzbZPBax0dUVAYiytyZk2GS4aDc33gMBGUZbTPgZFskzDEX/80HgZICshqkF
k8w60EHD/BHQ1D2+yq9sBWl3Skvc7DwCqQUVo0JGK8iSjNbZjCAEbndU5Sua
yJFni7jjtSEIIIflKjn1sqRac/Dg4jUE+ofdCpyOypIxYqrNNhEIbC1FxH7c
ZJBOpwPeiCct8T0dZrdMkE5u0Op4o3IXAXS/VqjVcxopOg5vd9xHQCu6wO6w
DY3MOSWUF/QIgRCTowdk3iLkvPftd7yXCJSHho5RImTIbxq8d9JvEagKzl3f
byxDpo9Z53Pzl+6DdVq+XCZDmniz37sQCOimfbHJCpEm47wyP7RVLvFoJxOU
YqnkyXWiBTPVCGxMsXDSO0wlDf64FzDqEJCzdux5oUwlezy1Cvc2I7AqZLhT
PECK1PAsLCrpRUDbFn+oPSFBCnDliZ/9CGi4jPcWx0mQjSPBxOJvBKaqn/sf
MZAgAz12kpv+Q8CMfdDoQoQ4We5e//HZAgI57EnFm9vFyBS1DcXlFBpI6Z9J
/DgtSnoPJxT3CdAAicSlbj0VJRnu9p/kRWngpqvkkisrSjq6DZbEMGiQ6GIm
3E0RIXVUzT/nrqBBmv2Pb2eKlpPLh7I/V7Np4GJ0+MTOC8vJF66+pcsVaVBu
8Jh6cVGYnD/5ryxwHQ12JUfPm0gKk99UHL8katFgctFsX0uDEJk+WPLlrQ4N
VkVfeHQsRYg0ORlaPqZPg2DbL5G2XCEyzoVe6byTBj/QPj3hw4LkuhOq1eZH
aWDWJuR8v0uA7DjJ8XruvDR/0V92VI4AGe6OUCVdaNC6tnxx+2UBcvDUnMU3
Txpcisk6OqYkQD4IrPxuEUgD5yleUqEvPykb7dZuHU8DSKPnpmrxkaUxRy7m
JdEgLqjPa0icj/SN38eRu0eDWPP3Y4X9FLI2Rf9oSwYNNPdHmwzdo5BhmWK/
Dr2kQYfAvRg5hEL+K3g67FBFA5u7b85LKiwS2URqxMcaGkRvUNwk2LtA2BXf
4a5soEFjTbf1h8wFIr8swLunlQZRLX1XrTUXCJ86M96xARqEVdS/7zGfJ/r7
h+ZcBehgFar3ISB9loj73ZlSKUQHiUAp9xqvWWLbSL2hmigdauTPvM81nCXS
xj9cGqHSwV/SU4L6Y4Y4tBAm4I3RwfuXR+80a4b4JqMm5qdLh6f1XKkrr6eJ
zR4eg8kGdGB6zPe4hk8T2WXZZcU4Hd5cCtud7TxN3ArUvELdQYd/+sVq2xnT
hHnfhoWnlnSYSUpLCr8wRVTkb/nT7UaH/Gj7VOdDk8RnhwP1e+/Rwf6dcXiA
+QSh/SEh1z+NDu5i29oeqk8QGfTWyHsZdNBOPKQtKjVBXKmwMx9+QgcXM+n2
C3XjxFZtx8/X8+ggjvmMzR0aJ0hhj7yiGjpY3vt7/fXZ/4gP2cHJagIMGOoM
8XZ9/IcQMrdixgsxwHxynh3i84ewGFydyCfKgO0fu2YnDf8Q/YpVcY1UBlDT
++78qh8lkETZ6CCMAZXxsPOrwCjhFvLsRoMuA5oo12ZLTw8TLJtGv0BvBpTo
hdoUXhskjk9m8fp8GJBbyBVVsh0kcqMDfCz8GRC/MXe4VH2QMK6SP6V8kQGF
Ev+OFH0fIHy2urnXhDHA+LC+hcOaAaJSjeKklMmALJXS1tamPiKAb+3er+0M
cHiFqngf6iX6tok1K/9kgOWzXJsGnV5i743hI5d7GcCrP27sQO0llKReeG0Y
YsB378K4kc89xFe2duT9vwyQ9vR8V6vVQ2CbNlf7IrLQHvGD7oh0E8Weluao
iSwgBXeHu1o6CdG28zs9X8tColbZv3sdTcSvRwoxqYFyMO1u8WW8pYSIWbNi
Wb7VCrjxU904sPcxHpV0vOyoPBPCG1QcthnU4P5ngn0CFZmQlXmpVvVUDW5v
eY8Tr8yEvfOeR9Y8qsHVRBv9v6oxYdJEaJkjtRYvP7d9zUZdJmjn1Ix0/qrF
+Q8q3RS3ZIL3kXLSLLYe95PtNs0LYcIPdlHT2uVNuG3M4WrxfibcTK9GbC07
cPYrUZbbbyZsuDzJPR3TgXfW5p0oH2FCXUlwJNHYgTtLyfBd4zHB1t7u3vyh
TtwztHT9Pz4WcFPJjhvaXXhw0LrE/9gsENxktIga/8Qfu/M5N1qyYKI61qDi
Sg/uHpado23Ngo6Hi3jj4x6c++TQQvRBFvBUd2Uv/9aDv+x/E7fHgQVxAeVR
3St68QJH1/IvHizYEUFi/rm9eI1NPffDDRZI6ri9jBj4hf/d9nAmtYgFVaWN
8XLnB/DAD6khJR9ZkB4mliuaPoBTtJIkBktYoPhspa56xQAuzIlU0KpkQVJv
JCnIGsQZM2dNSppYEN/VaEAjBvH1z80TB8ZYUOw6XaIiPYR70nmbNBXZoBgk
sJH4OYKPh40WWymzodxIL22cOor78Q+an1dhw2U+9I8bjOKBf9odPq1jQ1aD
Scz6+6N4WHnZDSsDNkhuNt2zzukPnnUhufmcFRuMmrQ49QFjeM+vrWeLr7Nh
o8ajtj6NcXxranX62jA2MPcmnDfaO47ft7Gtir7Fhokwy/PtXuO4feWplU6x
bPjx3k+j6sU43ppz/6vAAzZMmQg7vdGawOsCFuW3F7HB6Tv19vXtPFxTJ9Ts
+Uc2zC1afOee5OFRo/Qz9M9sCP+3eUAxgofvPqpe+auSDUMrOy3nv/Pwih12
ftdalvZbo3brptskXiz9vryMxwb/F+qzOzKncIXK7bx1f9lg45j11LVmCg+6
UoslzLHhdGLVp/GZKXzz9ICPCz8KiSamQxt2T+Pv22QxESoKUpKzt8i5afxl
pt9pU1UUnr7t77/uPoNLH+W7+5KLgnLhudC6lBncmxlRxtRCwVq2OSqtagbn
RmSwhzahwHXSvNqoMYs/OV1fGrYDhZGPndE9C7N4uqEmq+ooCpU9Bb6Lr+fx
4t2iIXPOKOT8jP0293se7z7S81vFBYVLcee3xCos4IrBse+veaLgNKKjmxW1
gGeUzhyEABSyKuwOPzyziD/cU5zwKgYFU7q9xAUtCpQ6JFO641HommNYKO6j
QN8pXxdqMgqFQsn62r4UUI5R3uSRhkJCODp9L48Cj5pDm5SzUdB7V63fasQH
WUf3MZLKUCAtett1fPnhy2m1i18qUGiu5Ym8S+GHgRDBvqkqFAxnR3VqP/PD
mkd5b/Y1oDC06PulcYUAPP7NspL4icLs7J+ehHIBqJjjFej3ovDI+O5xg2kB
+C1ereTaj4I9pzMobtUyWLsuiFc6gsKUVVlD0JVl8MSn907QLArP282N88wE
oeJK4Vz2AgplXs1t8ZcE4XdsnFM7BQPrTclUm9eCoPpu53o9YQxWZ312ipQX
gmfzz+omEAxaThS9vLVMGJ5f9ZM+oY4B4rzmjgWfCAwbHA6+qoGB4cBoudJ2
EVDjbZt4sB4DL1zB1iRUBJ440r536WLQe3CAP0dOFLLwVwm2OzDw9dPI5BqL
wcBUksg5Ewx09nlv+RwnBquzg8/Hm2OwUxz1EB8Qg0dsS7sGSwxckinH+yLF
IWNmjLP7CAZlqdkbr0xJQG9Oc5S7IwZ6FivrrK0kQdGF5As7hoFTsnGWw1tJ
SG+M7ClzW+ofynb1uCQFqa+4mVvOYpBaq3prOp4KHa4MOYcADLCujOzAWipg
KxdvXLyIwaFuu9ZL4tKQElXl+uEKBgyXmJjN16UhycOdq3Mbg6pOseMht2Wg
VWl/6r4YDLIM+6tbmmVgRZs+9XQ8BuEpdkLbViKQYCo2nn0Xg83H5+hvPiDQ
xDfhWHV/iV/KE9MxMRow8lvrhx4s+VudNsqyX/pzVj95s+YJBs9b8FOi4nRo
6LitbPwcA1Oxsvzp43SgxZ2LP5aDQeFKZPtACR2il5mcS3+LwZz6+GOfUAZE
/ew3YH/CoOBdT8vmLXJQk/DtuV4pBhleDPet+XIgtTcPO1iOwQHm/YUunRVw
q+gaJe4bBrVPHwqKb2ZCtZ/nqdd1GORqRUbrVDBBQt26u+47BhNyCtd07FgQ
nryqRKoNg8tBlg5b7rDhq6WEDrcTA7E+j/TVuiiIiU4+NO/GQIT2UTC5D4XQ
syXXbw5gEGGgxW9ty4Hydc/+Zg5hMFyoLT9ElYfl/XdOlo5ioKI+yX12Th6u
WzmZCUxikFBwE8oPKUD6nja7Y3+X8iuqrr7tUoACEyvPsjkMzJO1u997rIQm
o+pLKv8weHr2jk6SgCKMGxrfDuPngMdwWpfmA0UQ30SmjwhyYL+uldSFXUqw
Wkv39R4RDsh9ejGQKLAK7JRVmxAqByKFw53jE5TBXz5jwA/hgNLU1gsPzq+G
aCY628TgALk+OWzEcw08o8WJ6TE58FqkRrXEXwXKJKXQFJQD60VrJ9rj10L3
8hvcRXkONDmfcDxVpwrz/HzgoMSBjPTrBftU1UF24ZxF8WoOuN6N2K2QyQWt
6XFHJVUO7I5FTfNXacCu/9x8r3E5YMYvnnNbShMkWxp1ojU5QEQ1D22d04T/
AShhw98=
             "]], 
            Line[CompressedData["
1:eJwVkXk0lesXx13zcDJn5jzveYUooeJW6t1FpWhAg0yJRCnkki66SugWolsZ
I4kmScntV5HnCXFVUtJ1MtThIIpk7Byd6p7fH3vttddn7e/a+/ul/MPcAiUl
JCSOi+v/PSjadsOhOjYUteXfXTplQiQGy5PrGtiwwU/FtYIyIYu7Ll0/0cwG
FSeXgfgLxkTVMlhQ/pINk4dh4SEBTYbjLddyX7PBLdjJfIkvTYrpqj6zDjZw
LpR9f+XAIUejji107WZD1Jlnzb/WUsS7cW3C7zw2OH9JGj6xliKaIW3spwNs
GPRLNKjfjciX6tzQ8SE2VL94zTn1lU2eK+96pDci5jXG9SUL2CSxYsQzZIIN
o77HH/lWGRI/6crrZ6fZEK09dLNmliGx3xYjqBKywWWQTD4IMiAzcVLOshII
bDvkl5+30ieDJXsicn9BcHAVWzO7QI/8+6Ipx1IKwVEzY97v6nqkAmUMbpNF
cInqWh6rqEsK102ofJJDUP2/kzKiNB1yOmKbXbwCAk7LqWEDLR2yr94g+SoL
gfKITtSKhdrEYyS+bJkygt2C8yZPG7XIGi1+W4sKgs1ZlIuSnxbhBF+nBeoI
ArJ3yH/OnU3eKtk+dtJFkG3tHnZxsSZpWJQz2KWHIEu5sdGEr0EqfUQqBw3E
8121couzGiSjvNY3h41AnaRk2s+oEyf3TaKhOQgeOMR23e9RI7ZxFfQfpgjO
F4W4+BSqEeOS2c7qcxE0WvPcav3UiMTXzpyl8xAMjETfTR5QJfdzg+1SbBCE
vIrUs5NWJVfqnvmyFyFYIV1qZ1mgQs4NWybfXYwgaNcn6yO2KiR8xVRb568I
7DKra/aGKhOz3mMR8xgEqR8eJM8RsoiWUn8OAQS3apdUiwpZRHqR0+MtqxBE
aqidI+tZhJekrHpktdhvrk9Y82Ulkj03r6zZGcGylAt/e+9TJJMTa0qOb0Cw
utZX87muItlUM35hySYE0txl6wVPFYis+/rUEjcETi48iw02CiQqTrjvyA4E
o0UdtpEa8uTlmhL/hV4IZqwOd25ukSPz1Fw9h7wRKAY7yCWlypG+kmvrtvoh
mChn3XmqKEfcWrabzQ9C8M/fH0rJbFlyK0cK8YMRxFydX+3cKUMUdpdr5+xD
cL9ZOb3/kgwhAlk5mVAET14c9ja1kSELOPf6uyIRbIz5Xsv2lSasKM3LqQni
PJ1CeH++kyTBDMldlSj25/inR4I7kqROYf9fgiSx3jVugG6yJIkpqDu2+yQC
+ZYVvV5WkmSoMcLPPkPM/zisG5X6C2nQe2U4nI+gw6/Ssn2nBOH0x80uuohg
7Xh00xl7CXKk3GyWxyUErFgrhQZdCbLI8aiorljsb9m571TpT1x0YEFnXimC
lS2Bs9qLf+B4kpbt/EB8//adsfE1Ivyxm5wTPkSwKP1glWyyCG/7NpFxtRpB
t+F3bduNIjzP1vOkFEHwh7en91HeN8wtNYmpakBwvfXW5wOsb9gmC3tZtCHQ
IWONTLwQ51eOb3/7Rpz3/gQyukmI5VvnbDnRjmCsRf+ZASXE71mpLvwOBM9r
ftvbXy/AqQkey/N6EPxVqPpkWk2ABw6MGSmNIpDKzP0USqaxa4qx/oMvCJgz
ZQ+lsqdx9bXt2kHjCOjWfdNfw6bxWf4jlbopcV5Kd/IEaBrDjlMSsSIEModm
VVifmMK5jnTvRwUKzIuNnrgHTOIN+ltLnhpTwN25oMbUbRxn91kSLxMKPnhk
xK1bPI77yuQ7h00p4PCjkgt0xnEcVKuqWFCwdcjn9fv3Y/hmIB3nbk0BYy9a
XxY+hhVvj7l1Lafgx0Sc5HDuF9zoeFri8zYKpMdnTIMMPmN15WD9eA8Kvkt/
4a4eGcG+7SttVT0puBfbt2dvzQie3jsVYuNDwdqQsnexu0awSbp3+6EACgKG
rjvevzGME9+a3/oZRkGg5+Nlg06f8MrQRi+1kxS83oLqD5YP4hnu0Jr6UxTc
5XF8bBIHcaUDyyY6lYIVjjoGFjsGsYmuq3x3uvg/9r6AWqlBzKrvqLyWScHV
zUbfo7w+YK7u51lQTMGtOZPFQZoDOPyJJgnF4v3N+fpp1/j4ooG/8fMpCnbr
OJ0tiX+Hly60sPT/SsFjt3HTqJXvcNu6STuBgAKZ+nSX36TeYfnoZGdjEQWu
zV6M8EQ3Dn91IyJOkgPuzLUew7NdGJInyDwVDqR3P0jwvdOBe0cTfdLMxPyp
Rk2mYjs2rruaudGLAx7awrxE3Zc4Y36teWsNB2SvFFgk3L6B90xIv2oyp6G0
yiUlIb6e8b8zjk6m0xCt0nPBvL6d2Z/gLlp/hgYJxRS2vTSXiXKvbGedpSGs
lIxGO3KZP6eiTmdk0qDcaXg7/AmXubVE+C0rn4baOq/YQ01vGeHjn/9eKaXB
2Cbyx9aOTiajlZVW30hD1o4jFX1qPCb38oHg5CYa8po2Ws1dzGMuR75wcHpG
Q6H2P+w0Dx5zTytj5tkLGhz437iVF3lMl6dG8Os3NDwrX5V5ekEPY8rXdejl
05AyfV+5YWsvY1UZY1TcT0NxyPwC69heZmlSpzDwAw3yrTrL6gp7GRfT/NtD
H2lQONcY7jncy0SEIKOxMRoyi47zA5P4TJz9MWHFBA1LWUtHlG/ymaRZvW2R
UzRsNOa86mnlM9nll1MEAhrmOHaby1F9TNFR6aCHM2K9qeArnk59TKlr4Ko4
EQ1v/a/IdYT1MZWcBsMVP2jAUpfeJGX1MTUTJsKfP2n4mmKU44v7mP8AgOni
4g==
             "]]}, "Charting`Private`Tag#1"], 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[2]], 
            
            Line[{{2.0408163265306121`*^-7, 2.0408163265306121`*^-7}, {
             0.003067179205596267, 0.003067179205596267}, {
             0.006134154329559881, 0.006134154329559881}, {
             0.01226810457748711, 0.01226810457748711}, {0.02453600507334157, 
             0.02453600507334157}, {0.04907180606505048, 
             0.04907180606505048}, {0.09814340804846831, 
             0.09814340804846831}, {0.19628661201530398`, 
             0.19628661201530398`}, {0.40908357085458646`, 
             0.40908357085458646`}, {0.6077788357015209, 
             0.6077788357015209}, {0.8025764881887605, 0.8025764881887605}, {
             1.013884691581611, 1.013884691581611}, {1.2110912009821138`, 
             1.2110912009821138`}, {1.4248082612882276`, 
             1.4248082612882276`}, {1.5676075512846925`, 
             1.5676075512846925`}}], 
            
            Line[{{1.5739851023051006`, 1.5739851023051006`}, {
             1.8303454631887173`, 1.8303454631887173`}, {2.0425737680483995`, 
             2.0425737680483995`}, {2.240700378915734, 2.240700378915734}, {
             2.434929377423373, 2.434929377423373}, {2.645668926836623, 
             2.645668926836623}, {2.842306782257525, 2.842306782257525}, {
             3.0554551885840384`, 3.0554551885840384`}, {3.264705982550857, 
             3.264705982550857}, {3.459855082525327, 3.459855082525327}, {
             3.6715147334054086`, 3.6715147334054086`}, {3.869072690293142, 
             3.869072690293142}, {4.083141198086486, 4.083141198086486}, {
             4.293312093520136, 4.293312093520136}, {4.489381294961437, 
             4.489381294961437}, {4.70196104730835, 4.70196104730835}, {
             4.709200204874485, 4.709200204874485}}], 
            
            Line[{{4.715577755894894, 4.715577755894894}, {5.095019551657784, 
             5.095019551657784}, {5.306110548558265, 5.306110548558265}, {
             5.503099851466398, 5.503099851466398}, {5.716599705280141, 
             5.716599705280141}, {5.92620194673419, 5.92620194673419}, {
             6.121702494195891, 6.121702494195891}, {6.333713592563203, 
             6.333713592563203}, {6.531622996938168, 6.531622996938168}, {
             6.725634788953437, 6.725634788953437}, {6.936157131874317, 
             6.936157131874317}, {7.13257778080285, 7.13257778080285}, {
             7.345508980636994, 7.345508980636994}, {7.54433848647879, 
             7.54433848647879}, {7.7392703799608915`, 7.7392703799608915`}, {
             7.8507928584642785`, 7.8507928584642785`}}], 
            Line[CompressedData["
1:eJxTTMoPSmViYGBQAGIQvT08X2RfrrwDjJ6hOXvtWW8FOF1/oHeG904E7Ssd
uvSUiiKcdsw7Hi3YiaDnyySpnPmKoFUOL5/mF60EpyfoHtK6tA9Bp31muXhS
SxlOJ238pNDZj6BzmoL/eE1E0KXBW67zTEbQHV9L+yZMQ9DrLH/+nj4XQf88
+P/astUIesIlnt4jxxH0rMW5GW0nEfTiknPOHqcR9DaxCb9On0PQd6KEMy5f
RdDqjyWdHz1G0AZbquSWPEXQVq23f6Y+R9A+6nM3vHyFoIuyFeQ+fkTQNTaN
Pzd9RtCtvI+ulHxF0DPWL+7+8QNBL2pgSd/1C0GvDkx1qvmDoLcoHZO1+4eg
931W+/n/P4IGAGIP8p4=
             "]]}, "Charting`Private`Tag#2"], {}}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PlotRange" -> {{0, 10}, {-11.47896348287242, 17.981489887592712`}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[2]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>]]& )[<|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PlotRange" -> {{0, 10}, {-11.47896348287242, 17.981489887592712`}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            Opacity[1.], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>],
     ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
      4.503599627370496*^15, -4.503599627370496*^15}}]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Line[CompressedData["
1:eJwly3k8FHgDx/FB0iGUkJs8NW7RJcX3V60Kk33W2batoiy1iA6lpPbRJuuo
bETriLSMXFnZSI7t0BhKERMyGM1g0MyYw1Wentfzx/f1/uf7MQ447hEoT6FQ
kr7uf2bFBCy0PZLgtOji/33WbkTzNTqKSDeVyANfnX9RF2tkFAW1jjnzjV/N
akgyVDSKxxOHkFrfr4Y4ng6VGWbgUI/OxHbjDLTPBt8UGNKxXvNSnO4aOpR6
BqnjhtUIsq9xLtxQjdzmnAi+IQPlNvF6b04yIE5/aM5OZOC15w7Z2o8M7Api
ct5OM9BdZThw16cZYwoy75r2ZsgX2jZpODBh7+juEB/XAtV3LO8J+Va0lc3J
Uz+9RqvsPivRvQ0Xmy1dbQ+2wzHh4d7guXaUlsX3hFh3gxJl6UWt78HoitFE
V/9uGB0nkfTZHlAjXZ1Mb3Yj6e27Sm/7XtzZtjSXM92NfaykEOuKXqQwEn/a
/7wHOtUWuycKPiCSc024+8AHrFqQGa2VyUbOUmbscud+3JlqyA9+NwAnx/MH
Lvn1Q5pqG9UiHUBvmMXGT2f6McxNWeu+ahCr3iZwW4r6ERyd5Vv8wyBupNNc
rqoNwDrCwvsDZxCxa16pzPcMgPLmV57fDAdBeJMxdoKDY30850s7uKDkSWt6
Ejj4pPntlptBXKQv0Ottzudg3aeIv9sSuXjJ+MmA3smBcgRL43kXF6Zec3mB
DkMo+cyVFBznYTiYWtwn9xHhJ7P76guGcSzlQl3bdS6O+tcv7N7Gh7wkj11P
58ImW/2wNIiP274vKWX/cFFEbThO+52PZj31nUliLjgzCtsLR/mwKChsctnH
g9PFLpZt5hjGHre3/WM4DP0fKe+slk4g7KMZp7J0BN6tOjy7awL0+71f1MgY
gd7F87K99wXwZF21bh0aQVa3z1+3mwSwZ/KiPuqM4m5X4BCTIoTCg3tqmnGj
mA973nnntBDp0cZOZw7yIWetpfrkqAhLpG2HY8/xQfFKEbjGi3Dh+KX4a6l8
2EX0dWvSRQgIYHcUMPmojE07EjIiguWerJ9Zm8cweMUh2jR0Eo3q2hlb1Mbx
tphW8/wXMTYkvaxzthjHSGAjl35PjD8Xnh36btc4dMeyK3sZYiROd9ocix7H
zKtInfXqEviwb764PTyODQ2ZjS/oEowWqYlnGyZQUaVoVMeTYonxZSrbXgCF
7VqFuyqm8XLbDZsYZwHyU1w1S9jTuLIve7O+hwARFjljcctmIH/90e4ffhbg
yPWylrxjM5j5MhbUlSWAjedbZoH5LPi93oWv5YWwoDk+G3s6h6KpgPIwVSEE
gU1+d6fnELwy/NEyPSE6VGfcxDafMeT220u3jUKIz0iqwrM/o7embrgpSIjk
cm0Ds9gvaEmnmjW0CDHCcy3ZuZlCfqvcYHvwvRBtaxsqK30pZE/b9i1fPgoh
lOueTD5LIc+UDrhsmxfioP+tnrjHFFIbef3oI1sRPtyoNWjZJUfOpWRF+DqJ
UEqC9zYdkyP2pUVRUlcRrNn6w07X5Ejlx2fxG46IYL7Ozaf0vRwp8Zqml6eJ
sGyr6xH2KXkSEr6w4tu7IrR+J6xTyZIn5onqNRNlIpRVbyt++1ye/PnUqtmS
IcJOf0/jtdoKJNsuYLRwVgSHfLPBgCYFkqzGNM89NImmrQYB750VSfVm/Yfu
YZMI3TO05bcLimTI7zjmzk/Cu9zH3LFKkWwtUffyvTWJ+h3ejk3mC8mwy4EL
y15NIt5Oxd3dWImsjChVetwziWgDibPAX4kgnZISPDIJI+UbR1l3lUgaN//P
pwvE+JGaa5JvsYjsjB1/HbVVjKsOw+OHaItJWBH2U13EOPiy1+5o+mJy+82N
oQ4fMfbkt/RpcBcTgeGmaZsTYjCJ/kzqlSUkuzZmNbfw699RPW/0w1LC4LQV
/14lhj9bJYVpr0zES0w2b38mRhAjw6orVZm4fd/klskWw9LsjLDRZxmZkqie
9tCU4MRE3ZYQqQox0Q+YnzeRgHuIzlsdqErcv6mML7GV4M4K2t7mTlVyL2Vf
9qK9Eoj7yrMr/dVIW3WRadV+Cco6Dut75KiRuf65isPBEqi/uZ1wv0+NeNjk
NtXFSuDQuoPXH7CcxPhMfhdyQwKd2neGvILlhH7BuVc7R4IXGcbKXyaWE0rL
iOBUjQS8p3dvNcauICXBdjoWQgkOnKhSqGpWJ6xrl/NZXyQI+/VcxbcmK8mC
vzutryhLcYFGVRPGrCT7Fc/vHKBK8Yeq5bgQGuSKZWtr8kYpBp9aZhTf0yAP
PA33bdspxefL/L41qppkUd7TkFt+UmSkRdPtJjTJeoaG7JsQKbKVzPzIES3i
Jwj6RRQlxcys7oQcW4s8dFJO25sqRdL5ucOvOatIf6Cf0Wze1z4ynf2fMG2i
nFReVFguBV/7cYvDvDYJ6PGqV2iRIkwW0+m3QZcs+WMgNOK9FGNS5rXcTl1S
sT9Mj82VIkV5TOvsJT2i0B0XVSMnQ0VMwieDcX1SnLHS1FRVBlMP/3q7BwbE
6/vczlQ9Gf6do/GvwIuGJJ9Vsz5iswxL2bx9tdlGhJa+e7DvGxnk71/NydEy
JmLfjus0DxmMwx8pn79lTDK1/FFzUAZrl887JgxWE+eu8XFqqAzaayZ/LS5d
TSbSzmWmnpPBytKy6+JuE5Lmo+SmcFWGhZolZbRRE8J9Z1TYlyeD3qljCxQ9
1pDk1BIfWrkMy+x+V/tZey3Z5O2gWPNEhu6Yy2dffVpL+lY2/UVlynDPq8NM
1EklcR2eAaksGXLjVG8PtpmSdTf71RS4MmS+qP1Jsd+MsDxD68MnZYhk3TGw
UrIgl9RnQvsoU8hJy0yucLEkpu1X9GgqU2hNOnky9b4VaUtRZ1brTuGXeNGm
AlsbctbjThTVbAp0jbHGgfB1xGiFlWnqpingyS3dZH9b8j6hZnSr0xTqr7P4
O2ZtyX8BIY9jdQ==
          "]], 
         Line[CompressedData["
1:eJwVlWc81f0bx89xKPuc388MyUoiI6PBXd8LqZCGZJaQFIrWXahuTSJbpGFU
GnaUjMrvR5LKLTJuiuyDYyTzdIbz7//gen0eXA/e7yfX9VH3CXY8LEShUFh/
5v/5xPeG14YIDnrYmv7CfE6b7KxMuZR9k4O2ZM6P376tTUZ0umjppXFQVWZw
wVzrStKEvay+OJuDCsqbEpmqK8le+a7ADcUcRPPdcdfijBYZa5ZBJ95ykNOF
+MesFk3S3Mnrhc2nP/v0KIHoJk1y+JSGS0M7B0mlsnrqCjVIy+dPMjp/cpBG
xYY6xxx1crLxqJUXj4MSBGXUUSN18t6ELpMpykUbrK875FapkXO6Rfqz6lwk
M7Z+9k3bCvKh7cnmMAMukmeU/i2OrSB3HTX5m2rBRZaSgcdD9qmSOY/L3kg7
cdEntdjRLQsqpHNtqFeKFxdVVngzYveqkLQBC2GV41xknrtPvO6VMnlAjbRf
HcFFZlaYgXOCEondq/9mXc5FYWvkt3+5rkhWVUT/86mWiwqsbaxN6YpkYMcO
jT3NXHTQ9CCj/74C+V6u2d+TxUWDlSFFRrXy5CnTZKmheS6SLQuqP3JAnlyx
d19xII2HzvS5JMtw5MjQhE52iAoP8dxNWpU2yZHaRffuC3R4qMurVU17QJZs
+fcARJjxkJu6wE0kRpbUl+iPTN7JQ3GU1Y8rhmTIvuss+cJLPDSroyj2thQn
47LzK01jeShMuemeUjBOWrwL8nx9h4d20vw+BOniZApl5nF9CQ8Na35Tf/YE
I23Pc00HBnmobMz4rcsLBjl/522H/y8eat89Nu0WxiAflYdfmOLzkPS6JYYf
rBgkf45Wy5fno/zNG4vdiuhk8QnJvYq2fHQiuP5hhpo02XBXJrTAmY+ujU2+
qK+UIpm1SplWvnx0+nVV2HEXKVJp2eqxY+F85Pz9ZvSn25LktWqbq9WlfHSk
5VZIhLEEmTG2I8f5HR8NBQcZrP0hTpbLOX0Za+Kjl+8GQstuipMT/j7K8uN8
lBvlFKcwLkY64+EvAjQW0X+ldP8EUpQ88VdEp8BwEbWe7Va4GCpKRvvFCm5t
WkTCIr3oPxNRkqi8Z0+4LqLUmpZdT/OXkjqHygdk4heRwVTr2tSCJSTnxS+Z
t9xFlMWOf8IcFCZlf7A3OooJkGnL376bnguTBqIUr2F5ARK1xw6FXhAmD+2X
zseMBehSpqNwlIIw2SCst8XvqADtWGId5O9CIzP2+Z6htwlQcaaXSudvKlke
Hng3u1+AqGakBd5MJVtyTpEbpwQosTnIf/AZlRQOhyUlIhRI3mb22cadSm5o
2enYpUaBpoAjsZnvKOSD84EsIxcK/L0ue/fq/QLCiBRjRx6gQGI6WaK5QkCQ
ws9Eeg5RYHG5j3xn/yLRGzuoFnuCAvxVW8/6HVskVLMOuIxGUcA2WSg/L5JP
3K3dVfvgDQWoufH1Wl1cQldsspldQwHdp++b7HK4RIVDTM+ujxRwtrI9zT3L
JTra6zn8NgqYLPzVOC3DJeRHLde6/6RAdY5mH3svh0iSMs3ANagQVbX86zUW
m9Bw/Jrnr0OFiAgpbAfBJopTT1SQBlTgesfWXrjFJppWFLQGWVDhfCv7rQyw
CWljbYnPTlQQa544xLq3QEQ7K4ZcjaRCWRGNPeI7T1zJ5O2ZHacCrPStlTGZ
JXYblZ/Um6GCUmeT6Bw+S6hWn070+U2F5vqYQtmZGaKyn9XUJCIEmakXSiVe
zhDTKzt3FagKwVf5lpzqDTOET36pg99uITjbrHg1a8c0YVkRZNvxQghWm1+X
PHJnipC20/WnVwqBe5vIqfzwKaLr29CNraQQVAtUp5T8pogQ3v76lw1CkDKq
YXbSZIp4juy3JQ4JwX2fuXhW5k9CrW6VjZ0CDdwjHvmPrpgkKC298CaMBhvj
n2R17xkjro1WPQi7TAML7In1fs0xQoySLrTxBg0qTc3Nls+xCFzfrbY0hQbH
P5MNPndYxMrI5m1Fz2lwRLFokjk4SthZ1Ox8yKRBuka+ln7kCJH86NH+G47C
0HP2Wrnw7BChfcYvxElXBFLX5CpL7u4j9M179mYaiUCk8+KZBMM+wpTiasha
JwKbDU1Njeh9hFWMLTPcWgRcKzRfk429hGf2Gqe8/SLQQfrNLt/VS6S2ThsK
xYvApGe1m0LOD0LELHy4aEYEXj/7uLmt9xsxOHfbWeLtEjheslbZjWgh7IYC
LiadFAXxvLocZeVXxM7BBD1VVXE4UtYn51lAINY7n0v1BRIQUVjqMCLXhlYk
dgTEvZSAMbtTauKObcjJc+c+p9cSEN+xYcQhrg1VsTfq9tZLQIJw6cpNS9tR
kj7WujAgAVsvhpl84LQji9vEqlVKkqBi75kxM9KBYgJUvlyPkIRQRQrXbKgL
Va9PqrCPlYRhfQNWlHY3mhcWzcZuSUJEj+EuxtFu5JU5E5L+QBL417/1vBrr
RqatnzRK30jC8fZXZhfmfqDuTaFnB6clodllA7MyqhcZYO3LrQ9KAS1TO+p3
VT9ixjKvpByWguGFkRBKXz9KF18YHg6Uguycd2tX0QaQpLBiSUyIFHyXrDrQ
tm0AsebdtrYnSsHeH+uDqr4OoMdd3UH+tVKQwbhuK/dzEKk8GyLiV0tDVKiy
ZtaWYdSqNa/VbygN/fXHCj0Dh9HNB0uiTddJQ6/NFi27pGHEubvKqdNKGqxG
ljTm9A6jjlj/EY390qDMngm4Gz6Ckk9PMF7FSQNrh+Zied0oEkdz3l0z0vBV
i+GA/zOOQix1RF9xpCHioPEjl6JxxLT2KIyn0mHC/Uv7SO84qtlezbGi00Gc
X1s1vWUChTnGJufo0oF52vIzyZhEY4dXvj/rTYfGRxsfmpX/RO5HXQN3H6VD
bbrRm1eTP1F9wE1MN5gOJS7XHn/Cp1B28K8D3RfosN5199h6uym0P/TtvHUa
HYxVbLMPvp5CDTH7dLAvdOjwsll96ekvZB5/o5HVRodrOqYei+9/oWeJr8/U
dtHBMbyh7tXgL3QtVb36HIsOC3m5Dzs1ppFq0/yan0IMCFaTLhE8mEbtnTXv
96kyoFe+6ER6/gzaNuG+oLGPATYNDa7POHMoQ/ZqS7grA34UsT/kqs+jWYu8
oi4PBlTyn7qL2s6jrGjukVQfBny+n/3ft7R5xFl1v0PsBAPulhDnRDctoHyf
7oqpaAasSZH7zU9jI6FokVSHOAb8tXcy42wdG7kW65/KTWSA3v1AK79ZNhKh
/KPrm8YAhwSv8ZI9v5Fnuuq9/x4zYHpTRjjCOYjRcfBCFcmAgD3XQi0LuMhP
EOmqXMsA5dOnf1sNcNEb7eemIR8Y4FFT+XRgGQ/5/02ZWNvIgPztmhPSUTxU
gz848Pg7AwQ9FeZHg/nojEP/5ph5BkQnVrXZHRSgT2fElUd/M0A0f5dCX5YA
qd03XrDhM2DVebt3jgMC9C/rSpGAhgHPIuvJcTMKaN/QVDuNYeA/7t0Y8acn
Omp8qe5rMLjnd8I5eI4KU5bflC4aYpDE4PWmKgvB0updplnGGOg/+Kt1q5UQ
rCPMjzA3YPBw6509OxKF4NZrxr+nbDCwvdoWb7uOBvnmEcyU7Rj4XTv2nO5N
g3cVXEG5PQbUIlZcaAwNpsuYxoI9GJh+9HfYPkSDXS/fpN30xCCKRaZuyxQG
PxPjkkJvDAypZllZX4Thn5Knn5t9Mag41x1BUkQg/3nSokIgBvbJJw/5HxYB
8YKjvtnnMNid7PmBvWEJ1D2WNXqbgME31WGbKGlR+KEVbdubjIGn8McP6jtF
Ye6RwId2G4OgsHST8ThR0HrISrFNx6DSIW+ThawYXMkguW05GPDFLLzbDcTh
7vJ1cr/zMchRD0OMUHEovp9noPL8j69lzb4vteLQezfV2+cVBuzDT27QvSVg
8+1jHyZrMIg/O3dAsVASnOX7e7E6DK5UCIv+FpGC4ykuHNOPGDxLCvZt+fN3
7idb6Z//8ocP2o1vlkkDJ14xeWkXBjXOjI1Rz+iA0+PydXswiDbcmrVGjAGr
42h1Dv0YfFx8ce4wYoBrzCQ7eQSDEjur7YtFDCi9UeupNodBoOXkP4cf/eHY
fVaMZGOww/JSzMIoBnclv36d4GJQ4BhommeMw6WEnq2vhXAYlKkU7/mEw2lH
JkVjCQ5JmotwW0kG/GQnKm+I4XDYevORvmMysCONY+DMwOH4TJNY8TJZQO7U
0TcyOHRfZy8JPyP75+5FH2kq4HBeIXf/ia+yoJAlp/BrOQ5X1qHxwDQ56H9q
JLiph0MIhZTa6agAbf7rK6YNcBCSawwr+KwA9XqbT7v98bJoW5Pyy1YRCors
h7U34vA5dXuln/MyyDrp+CD2LxyWKlVe2j60DJJM3DxmEQ5PD/TNnAxTgpAy
vy/VW3H4fqd9mUeFMgSGHo/SscPhUEvGL1lfFfC0OGMd74CDNy/USUphOVgT
l8v2O+EwPBbaDmmqsO7yjZPvXHDIMGybGD2yAnSs4/V0PXBwTlIUc1NXA+kP
9zMXvHHwaCobLJVWB2rUIzfPwzgUFoa4vY9Xh1m7XJn3R3H4cMVjIUVRA5iS
xf/qHcMhb0hPsi9HAzobyyKTgnGIX7XtxbktmtCQUGX5+xQOJy5ert86qglV
ju+5B8/i0Hx5bZ7HHS3Ibv8arH8RBy2J3A5HNW24nda5+tYlHOw7vq/R52hD
tHvvAOcqDkVp0LB7aBVcUBlO947EgZn8vnBgQAeCf0y41EfjcIG5/UcAezX4
ZM1ihnE4DJBKP3tW6oGTD/dzSiIOXPuEhIbgNbBNSyiCd+uPrytzb9A3fTBn
isKhNBxILdfcoQBD0H9G53y8h4OMh+n6ymQjUAuQf2mUiYNB/zud0ZtrYebn
WueYLByIhI4xK+5a+B8fGOU9
          "]], 
         Line[CompressedData["
1:eJwVlmk8VI8Xxgch+3Bnhmbm3iFSwoSobN1TKllaKJIkoZK9kIpKtFoi2SmR
ok20SeHeJEJky5YtZMmSH4Os/f1fnM/z6jzPOd/z5ig4elke46dQKCNL9X+d
SBdLjNJCIL3h7iu9SWWyV/9vhYc2AhV2EXY//ZTJBCvz4qSNCNyQkGtseLmK
NPe6n1+mh4BJogx/wLwSSbnJy+EZIhBP25GWaqFEvk7fmaWwBYGwodf62rmK
pEtBSurubQgMFYqEmDIVSXbjWFyAMQIuGmLZUuErySsiiVe/70LA4y4vqfqa
ArlJcSSQ3wKBrPfwIlxSgRw22OK7bj8Cj8/tMr2QIk/u9x50vGmLQPHmUBWj
aA65PNTQ9u1hBA7srzWVrMbIgge3LXocEAiPP5BHQTBSqUkXDE8gkBY6e+7X
GzbZPBax0dUVAYiytyZk2GS4aDc33gMBGUZbTPgZFskzDEX/80HgZICshqkF
k8w60EHD/BHQ1D2+yq9sBWl3Skvc7DwCqQUVo0JGK8iSjNbZjCAEbndU5Sua
yJFni7jjtSEIIIflKjn1sqRac/Dg4jUE+ofdCpyOypIxYqrNNhEIbC1FxH7c
ZJBOpwPeiCct8T0dZrdMkE5u0Op4o3IXAXS/VqjVcxopOg5vd9xHQCu6wO6w
DY3MOSWUF/QIgRCTowdk3iLkvPftd7yXCJSHho5RImTIbxq8d9JvEagKzl3f
byxDpo9Z53Pzl+6DdVq+XCZDmniz37sQCOimfbHJCpEm47wyP7RVLvFoJxOU
YqnkyXWiBTPVCGxMsXDSO0wlDf64FzDqEJCzdux5oUwlezy1Cvc2I7AqZLhT
PECK1PAsLCrpRUDbFn+oPSFBCnDliZ/9CGi4jPcWx0mQjSPBxOJvBKaqn/sf
MZAgAz12kpv+Q8CMfdDoQoQ4We5e//HZAgI57EnFm9vFyBS1DcXlFBpI6Z9J
/DgtSnoPJxT3CdAAicSlbj0VJRnu9p/kRWngpqvkkisrSjq6DZbEMGiQ6GIm
3E0RIXVUzT/nrqBBmv2Pb2eKlpPLh7I/V7Np4GJ0+MTOC8vJF66+pcsVaVBu
8Jh6cVGYnD/5ryxwHQ12JUfPm0gKk99UHL8katFgctFsX0uDEJk+WPLlrQ4N
VkVfeHQsRYg0ORlaPqZPg2DbL5G2XCEyzoVe6byTBj/QPj3hw4LkuhOq1eZH
aWDWJuR8v0uA7DjJ8XruvDR/0V92VI4AGe6OUCVdaNC6tnxx+2UBcvDUnMU3
Txpcisk6OqYkQD4IrPxuEUgD5yleUqEvPykb7dZuHU8DSKPnpmrxkaUxRy7m
JdEgLqjPa0icj/SN38eRu0eDWPP3Y4X9FLI2Rf9oSwYNNPdHmwzdo5BhmWK/
Dr2kQYfAvRg5hEL+K3g67FBFA5u7b85LKiwS2URqxMcaGkRvUNwk2LtA2BXf
4a5soEFjTbf1h8wFIr8swLunlQZRLX1XrTUXCJ86M96xARqEVdS/7zGfJ/r7
h+ZcBehgFar3ISB9loj73ZlSKUQHiUAp9xqvWWLbSL2hmigdauTPvM81nCXS
xj9cGqHSwV/SU4L6Y4Y4tBAm4I3RwfuXR+80a4b4JqMm5qdLh6f1XKkrr6eJ
zR4eg8kGdGB6zPe4hk8T2WXZZcU4Hd5cCtud7TxN3ArUvELdQYd/+sVq2xnT
hHnfhoWnlnSYSUpLCr8wRVTkb/nT7UaH/Gj7VOdDk8RnhwP1e+/Rwf6dcXiA
+QSh/SEh1z+NDu5i29oeqk8QGfTWyHsZdNBOPKQtKjVBXKmwMx9+QgcXM+n2
C3XjxFZtx8/X8+ggjvmMzR0aJ0hhj7yiGjpY3vt7/fXZ/4gP2cHJagIMGOoM
8XZ9/IcQMrdixgsxwHxynh3i84ewGFydyCfKgO0fu2YnDf8Q/YpVcY1UBlDT
++78qh8lkETZ6CCMAZXxsPOrwCjhFvLsRoMuA5oo12ZLTw8TLJtGv0BvBpTo
hdoUXhskjk9m8fp8GJBbyBVVsh0kcqMDfCz8GRC/MXe4VH2QMK6SP6V8kQGF
Ev+OFH0fIHy2urnXhDHA+LC+hcOaAaJSjeKklMmALJXS1tamPiKAb+3er+0M
cHiFqngf6iX6tok1K/9kgOWzXJsGnV5i743hI5d7GcCrP27sQO0llKReeG0Y
YsB378K4kc89xFe2duT9vwyQ9vR8V6vVQ2CbNlf7IrLQHvGD7oh0E8Weluao
iSwgBXeHu1o6CdG28zs9X8tColbZv3sdTcSvRwoxqYFyMO1u8WW8pYSIWbNi
Wb7VCrjxU904sPcxHpV0vOyoPBPCG1QcthnU4P5ngn0CFZmQlXmpVvVUDW5v
eY8Tr8yEvfOeR9Y8qsHVRBv9v6oxYdJEaJkjtRYvP7d9zUZdJmjn1Ix0/qrF
+Q8q3RS3ZIL3kXLSLLYe95PtNs0LYcIPdlHT2uVNuG3M4WrxfibcTK9GbC07
cPYrUZbbbyZsuDzJPR3TgXfW5p0oH2FCXUlwJNHYgTtLyfBd4zHB1t7u3vyh
TtwztHT9Pz4WcFPJjhvaXXhw0LrE/9gsENxktIga/8Qfu/M5N1qyYKI61qDi
Sg/uHpado23Ngo6Hi3jj4x6c++TQQvRBFvBUd2Uv/9aDv+x/E7fHgQVxAeVR
3St68QJH1/IvHizYEUFi/rm9eI1NPffDDRZI6ri9jBj4hf/d9nAmtYgFVaWN
8XLnB/DAD6khJR9ZkB4mliuaPoBTtJIkBktYoPhspa56xQAuzIlU0KpkQVJv
JCnIGsQZM2dNSppYEN/VaEAjBvH1z80TB8ZYUOw6XaIiPYR70nmbNBXZoBgk
sJH4OYKPh40WWymzodxIL22cOor78Q+an1dhw2U+9I8bjOKBf9odPq1jQ1aD
Scz6+6N4WHnZDSsDNkhuNt2zzukPnnUhufmcFRuMmrQ49QFjeM+vrWeLr7Nh
o8ajtj6NcXxranX62jA2MPcmnDfaO47ft7Gtir7Fhokwy/PtXuO4feWplU6x
bPjx3k+j6sU43ppz/6vAAzZMmQg7vdGawOsCFuW3F7HB6Tv19vXtPFxTJ9Ts
+Uc2zC1afOee5OFRo/Qz9M9sCP+3eUAxgofvPqpe+auSDUMrOy3nv/Pwih12
ftdalvZbo3brptskXiz9vryMxwb/F+qzOzKncIXK7bx1f9lg45j11LVmCg+6
UoslzLHhdGLVp/GZKXzz9ICPCz8KiSamQxt2T+Pv22QxESoKUpKzt8i5afxl
pt9pU1UUnr7t77/uPoNLH+W7+5KLgnLhudC6lBncmxlRxtRCwVq2OSqtagbn
RmSwhzahwHXSvNqoMYs/OV1fGrYDhZGPndE9C7N4uqEmq+ooCpU9Bb6Lr+fx
4t2iIXPOKOT8jP0293se7z7S81vFBYVLcee3xCos4IrBse+veaLgNKKjmxW1
gGeUzhyEABSyKuwOPzyziD/cU5zwKgYFU7q9xAUtCpQ6JFO641HommNYKO6j
QN8pXxdqMgqFQsn62r4UUI5R3uSRhkJCODp9L48Cj5pDm5SzUdB7V63fasQH
WUf3MZLKUCAtett1fPnhy2m1i18qUGiu5Ym8S+GHgRDBvqkqFAxnR3VqP/PD
mkd5b/Y1oDC06PulcYUAPP7NspL4icLs7J+ehHIBqJjjFej3ovDI+O5xg2kB
+C1ereTaj4I9pzMobtUyWLsuiFc6gsKUVVlD0JVl8MSn907QLArP282N88wE
oeJK4Vz2AgplXs1t8ZcE4XdsnFM7BQPrTclUm9eCoPpu53o9YQxWZ312ipQX
gmfzz+omEAxaThS9vLVMGJ5f9ZM+oY4B4rzmjgWfCAwbHA6+qoGB4cBoudJ2
EVDjbZt4sB4DL1zB1iRUBJ440r536WLQe3CAP0dOFLLwVwm2OzDw9dPI5BqL
wcBUksg5Ewx09nlv+RwnBquzg8/Hm2OwUxz1EB8Qg0dsS7sGSwxckinH+yLF
IWNmjLP7CAZlqdkbr0xJQG9Oc5S7IwZ6FivrrK0kQdGF5As7hoFTsnGWw1tJ
SG+M7ClzW+ofynb1uCQFqa+4mVvOYpBaq3prOp4KHa4MOYcADLCujOzAWipg
KxdvXLyIwaFuu9ZL4tKQElXl+uEKBgyXmJjN16UhycOdq3Mbg6pOseMht2Wg
VWl/6r4YDLIM+6tbmmVgRZs+9XQ8BuEpdkLbViKQYCo2nn0Xg83H5+hvPiDQ
xDfhWHV/iV/KE9MxMRow8lvrhx4s+VudNsqyX/pzVj95s+YJBs9b8FOi4nRo
6LitbPwcA1Oxsvzp43SgxZ2LP5aDQeFKZPtACR2il5mcS3+LwZz6+GOfUAZE
/ew3YH/CoOBdT8vmLXJQk/DtuV4pBhleDPet+XIgtTcPO1iOwQHm/YUunRVw
q+gaJe4bBrVPHwqKb2ZCtZ/nqdd1GORqRUbrVDBBQt26u+47BhNyCtd07FgQ
nryqRKoNg8tBlg5b7rDhq6WEDrcTA7E+j/TVuiiIiU4+NO/GQIT2UTC5D4XQ
syXXbw5gEGGgxW9ty4Hydc/+Zg5hMFyoLT9ElYfl/XdOlo5ioKI+yX12Th6u
WzmZCUxikFBwE8oPKUD6nja7Y3+X8iuqrr7tUoACEyvPsjkMzJO1u997rIQm
o+pLKv8weHr2jk6SgCKMGxrfDuPngMdwWpfmA0UQ30SmjwhyYL+uldSFXUqw
Wkv39R4RDsh9ejGQKLAK7JRVmxAqByKFw53jE5TBXz5jwA/hgNLU1gsPzq+G
aCY628TgALk+OWzEcw08o8WJ6TE58FqkRrXEXwXKJKXQFJQD60VrJ9rj10L3
8hvcRXkONDmfcDxVpwrz/HzgoMSBjPTrBftU1UF24ZxF8WoOuN6N2K2QyQWt
6XFHJVUO7I5FTfNXacCu/9x8r3E5YMYvnnNbShMkWxp1ojU5QEQ1D22d04T/
AShhw98=
          "]], 
         Line[CompressedData["
1:eJwVkXk0lesXx13zcDJn5jzveYUooeJW6t1FpWhAg0yJRCnkki66SugWolsZ
I4kmScntV5HnCXFVUtJ1MtThIIpk7Byd6p7fH3vttddn7e/a+/ul/MPcAiUl
JCSOi+v/PSjadsOhOjYUteXfXTplQiQGy5PrGtiwwU/FtYIyIYu7Ll0/0cwG
FSeXgfgLxkTVMlhQ/pINk4dh4SEBTYbjLddyX7PBLdjJfIkvTYrpqj6zDjZw
LpR9f+XAIUejji107WZD1Jlnzb/WUsS7cW3C7zw2OH9JGj6xliKaIW3spwNs
GPRLNKjfjciX6tzQ8SE2VL94zTn1lU2eK+96pDci5jXG9SUL2CSxYsQzZIIN
o77HH/lWGRI/6crrZ6fZEK09dLNmliGx3xYjqBKywWWQTD4IMiAzcVLOshII
bDvkl5+30ieDJXsicn9BcHAVWzO7QI/8+6Ipx1IKwVEzY97v6nqkAmUMbpNF
cInqWh6rqEsK102ofJJDUP2/kzKiNB1yOmKbXbwCAk7LqWEDLR2yr94g+SoL
gfKITtSKhdrEYyS+bJkygt2C8yZPG7XIGi1+W4sKgs1ZlIuSnxbhBF+nBeoI
ArJ3yH/OnU3eKtk+dtJFkG3tHnZxsSZpWJQz2KWHIEu5sdGEr0EqfUQqBw3E
8121couzGiSjvNY3h41AnaRk2s+oEyf3TaKhOQgeOMR23e9RI7ZxFfQfpgjO
F4W4+BSqEeOS2c7qcxE0WvPcav3UiMTXzpyl8xAMjETfTR5QJfdzg+1SbBCE
vIrUs5NWJVfqnvmyFyFYIV1qZ1mgQs4NWybfXYwgaNcn6yO2KiR8xVRb568I
7DKra/aGKhOz3mMR8xgEqR8eJM8RsoiWUn8OAQS3apdUiwpZRHqR0+MtqxBE
aqidI+tZhJekrHpktdhvrk9Y82Ulkj03r6zZGcGylAt/e+9TJJMTa0qOb0Cw
utZX87muItlUM35hySYE0txl6wVPFYis+/rUEjcETi48iw02CiQqTrjvyA4E
o0UdtpEa8uTlmhL/hV4IZqwOd25ukSPz1Fw9h7wRKAY7yCWlypG+kmvrtvoh
mChn3XmqKEfcWrabzQ9C8M/fH0rJbFlyK0cK8YMRxFydX+3cKUMUdpdr5+xD
cL9ZOb3/kgwhAlk5mVAET14c9ja1kSELOPf6uyIRbIz5Xsv2lSasKM3LqQni
PJ1CeH++kyTBDMldlSj25/inR4I7kqROYf9fgiSx3jVugG6yJIkpqDu2+yQC
+ZYVvV5WkmSoMcLPPkPM/zisG5X6C2nQe2U4nI+gw6/Ssn2nBOH0x80uuohg
7Xh00xl7CXKk3GyWxyUErFgrhQZdCbLI8aiorljsb9m571TpT1x0YEFnXimC
lS2Bs9qLf+B4kpbt/EB8//adsfE1Ivyxm5wTPkSwKP1glWyyCG/7NpFxtRpB
t+F3bduNIjzP1vOkFEHwh7en91HeN8wtNYmpakBwvfXW5wOsb9gmC3tZtCHQ
IWONTLwQ51eOb3/7Rpz3/gQyukmI5VvnbDnRjmCsRf+ZASXE71mpLvwOBM9r
ftvbXy/AqQkey/N6EPxVqPpkWk2ABw6MGSmNIpDKzP0USqaxa4qx/oMvCJgz
ZQ+lsqdx9bXt2kHjCOjWfdNfw6bxWf4jlbopcV5Kd/IEaBrDjlMSsSIEModm
VVifmMK5jnTvRwUKzIuNnrgHTOIN+ltLnhpTwN25oMbUbRxn91kSLxMKPnhk
xK1bPI77yuQ7h00p4PCjkgt0xnEcVKuqWFCwdcjn9fv3Y/hmIB3nbk0BYy9a
XxY+hhVvj7l1Lafgx0Sc5HDuF9zoeFri8zYKpMdnTIMMPmN15WD9eA8Kvkt/
4a4eGcG+7SttVT0puBfbt2dvzQie3jsVYuNDwdqQsnexu0awSbp3+6EACgKG
rjvevzGME9+a3/oZRkGg5+Nlg06f8MrQRi+1kxS83oLqD5YP4hnu0Jr6UxTc
5XF8bBIHcaUDyyY6lYIVjjoGFjsGsYmuq3x3uvg/9r6AWqlBzKrvqLyWScHV
zUbfo7w+YK7u51lQTMGtOZPFQZoDOPyJJgnF4v3N+fpp1/j4ooG/8fMpCnbr
OJ0tiX+Hly60sPT/SsFjt3HTqJXvcNu6STuBgAKZ+nSX36TeYfnoZGdjEQWu
zV6M8EQ3Dn91IyJOkgPuzLUew7NdGJInyDwVDqR3P0jwvdOBe0cTfdLMxPyp
Rk2mYjs2rruaudGLAx7awrxE3Zc4Y36teWsNB2SvFFgk3L6B90xIv2oyp6G0
yiUlIb6e8b8zjk6m0xCt0nPBvL6d2Z/gLlp/hgYJxRS2vTSXiXKvbGedpSGs
lIxGO3KZP6eiTmdk0qDcaXg7/AmXubVE+C0rn4baOq/YQ01vGeHjn/9eKaXB
2Cbyx9aOTiajlZVW30hD1o4jFX1qPCb38oHg5CYa8po2Ws1dzGMuR75wcHpG
Q6H2P+w0Dx5zTytj5tkLGhz437iVF3lMl6dG8Os3NDwrX5V5ekEPY8rXdejl
05AyfV+5YWsvY1UZY1TcT0NxyPwC69heZmlSpzDwAw3yrTrL6gp7GRfT/NtD
H2lQONcY7jncy0SEIKOxMRoyi47zA5P4TJz9MWHFBA1LWUtHlG/ymaRZvW2R
UzRsNOa86mnlM9nll1MEAhrmOHaby1F9TNFR6aCHM2K9qeArnk59TKlr4Ko4
EQ1v/a/IdYT1MZWcBsMVP2jAUpfeJGX1MTUTJsKfP2n4mmKU44v7mP8AgOni
4g==
          "]]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2]], 
         Line[{{2.0408163265306121`*^-7, 2.0408163265306121`*^-7}, {
          0.003067179205596267, 0.003067179205596267}, {0.006134154329559881, 
          0.006134154329559881}, {0.01226810457748711, 0.01226810457748711}, {
          0.02453600507334157, 0.02453600507334157}, {0.04907180606505048, 
          0.04907180606505048}, {0.09814340804846831, 0.09814340804846831}, {
          0.19628661201530398`, 0.19628661201530398`}, {0.40908357085458646`, 
          0.40908357085458646`}, {0.6077788357015209, 0.6077788357015209}, {
          0.8025764881887605, 0.8025764881887605}, {1.013884691581611, 
          1.013884691581611}, {1.2110912009821138`, 1.2110912009821138`}, {
          1.4248082612882276`, 1.4248082612882276`}, {1.5676075512846925`, 
          1.5676075512846925`}}], 
         Line[{{1.5739851023051006`, 1.5739851023051006`}, {
          1.8303454631887173`, 1.8303454631887173`}, {2.0425737680483995`, 
          2.0425737680483995`}, {2.240700378915734, 2.240700378915734}, {
          2.434929377423373, 2.434929377423373}, {2.645668926836623, 
          2.645668926836623}, {2.842306782257525, 2.842306782257525}, {
          3.0554551885840384`, 3.0554551885840384`}, {3.264705982550857, 
          3.264705982550857}, {3.459855082525327, 3.459855082525327}, {
          3.6715147334054086`, 3.6715147334054086`}, {3.869072690293142, 
          3.869072690293142}, {4.083141198086486, 4.083141198086486}, {
          4.293312093520136, 4.293312093520136}, {4.489381294961437, 
          4.489381294961437}, {4.70196104730835, 4.70196104730835}, {
          4.709200204874485, 4.709200204874485}}], 
         Line[{{4.715577755894894, 4.715577755894894}, {5.095019551657784, 
          5.095019551657784}, {5.306110548558265, 5.306110548558265}, {
          5.503099851466398, 5.503099851466398}, {5.716599705280141, 
          5.716599705280141}, {5.92620194673419, 5.92620194673419}, {
          6.121702494195891, 6.121702494195891}, {6.333713592563203, 
          6.333713592563203}, {6.531622996938168, 6.531622996938168}, {
          6.725634788953437, 6.725634788953437}, {6.936157131874317, 
          6.936157131874317}, {7.13257778080285, 7.13257778080285}, {
          7.345508980636994, 7.345508980636994}, {7.54433848647879, 
          7.54433848647879}, {7.7392703799608915`, 7.7392703799608915`}, {
          7.8507928584642785`, 7.8507928584642785`}}], 
         Line[CompressedData["
1:eJxTTMoPSmViYGBQAGIQvT08X2RfrrwDjJ6hOXvtWW8FOF1/oHeG904E7Ssd
uvSUiiKcdsw7Hi3YiaDnyySpnPmKoFUOL5/mF60EpyfoHtK6tA9Bp31muXhS
SxlOJ238pNDZj6BzmoL/eE1E0KXBW67zTEbQHV9L+yZMQ9DrLH/+nj4XQf88
+P/astUIesIlnt4jxxH0rMW5GW0nEfTiknPOHqcR9DaxCb9On0PQd6KEMy5f
RdDqjyWdHz1G0AZbquSWPEXQVq23f6Y+R9A+6nM3vHyFoIuyFeQ+fkTQNTaN
Pzd9RtCtvI+ulHxF0DPWL+7+8QNBL2pgSd/1C0GvDkx1qvmDoLcoHZO1+4eg
931W+/n/P4IGAGIP8p4=
          "]]}, "Charting`Private`Tag#2"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PlotRange" -> {{0, 10}, {-11.47896348287242, 17.981489887592712`}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2]], 
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {-11.47896348287242, 17.981489887592712`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9036248533598623`*^9, 3.903625418989977*^9, 3.9036256586978416`*^9, 
   3.903628097568991*^9, 3.903634839970696*^9, 3.903635364640129*^9, 
   3.903636140638399*^9, 3.903637131775694*^9, {3.903640259437105*^9, 
   3.9036403071535177`*^9}, 3.903640506639699*^9, 3.903709526481244*^9, 
   3.903709718177046*^9, 3.903709803763825*^9, 3.903710841491651*^9, 
   3.903711308278894*^9, 3.903711749098103*^9, 3.903712059484375*^9, 
   3.90396404319223*^9, 3.903964346605192*^9, 3.904047886933387*^9, 
   3.9040515997359457`*^9, 3.9040548075769596`*^9, 3.904062532883511*^9, 
   3.9040726455567617`*^9, 3.904073359678613*^9, 3.9040734018124747`*^9, 
   3.904074103755671*^9, 3.904078119857769*^9, 3.9042540249670477`*^9, 
   3.90425625517555*^9, 3.90432993467131*^9, 3.904332011487341*^9, 
   3.9043320972640247`*^9, 3.904333935587389*^9, 3.9044096880194693`*^9, 
   3.904411386694051*^9, 3.90441678096704*^9, 3.90441714000031*^9, 
   3.90647586462587*^9, 3.906578657136428*^9, 3.906581714899457*^9, 
   3.906582496441293*^9, 3.906582838098611*^9, 3.908995629410982*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"9eff7097-bcbf-4d2f-b587-138e704c45df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Tan", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", "Purple"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7996118677799993`*^9, 3.799611897180572*^9}, {
  3.799611963292601*^9, 3.7996120681676455`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"22379926-6585-4cb5-9d16-edb7f2871783"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.5, 0, 0.5], AbsoluteThickness[2], Opacity[1.], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwlyms4FPgCx/Exki5CCWXTsD01ucRSHZfw+8vq4tZTctnWKmKNVqQtpajO
o62ULmwXHEahGLmtnWxkXZYaMyjRZUIGwwwGzYyZESmn85wX3+fz5msaGrMn
nEqhUI587X9mnwmdbxN2xWXB2f/b1GniFWASiThP7bigr849q00yMYmH7qtZ
881fza6/StMwScbfjlE1AV+Ncj5+eIqWgQPdRhOuphno/MS4KaWxsNHg3MVv
1rKg2T1AH6dVIcK+2r1wUxXu8XJiJTQuyq2TV738lQtF+iNzQQoXL3y3Tq0b
4mJbRIuwY5qLrkpaf54/D2PqU37VnTxQC204+o4tsHf2cUy+2Aqd13y/CWob
2stmqfQPL9A29ZCf4tOOszxLD5v9nXC+8sibMduJ0rLk7iirLlDiLffS67ox
umw0xSOkCyYxJI71qRv0OA+X9Te7cLXjNdvPvgd3nRbfE053IZB/Ncqqogdp
3JSf9z3thlGVxfaJgveIE16XbQ96jxXzshIMswTIWdyStNS9D3c/1uczXvfD
xfl00LngPqhu2cS3qvrRE22x+cOJPgyL0tb5rBjAio4rotaiPjASsgOKfxxA
arrXzku6/bCKtfB7LxxA0trn2nPd/aC8/E0cPCNEBF5mjB0V4lCv2P3cVhEo
uarq7itCfDDY5XAzQoT0eat6ePlCfPch9q/2FBGauT+vZr0RQiuWr//0rQjr
987mhjsOouSzSFkQI8Ywg17cqzaEI78ye+sKhnEoLbG2/YYIkSF187ucJKAq
cwV1LBGsmXoHVRESZAY0U8r+EaGIXh/j9bsEvFV6blcVIghn1F0LRyWwKCjk
7AwUw+XsW75N1hjGnnS2/0MbhvFPlNcbFk8geshMyC4dgV+bkdj2uhR9we8W
NHBHsOrs6Snvh1L48i9ZtQ2OILvL/89MjhT2LeL4IaNR5L0NH2yhyKD+x31d
g4ujmIt++ubucRnSE0xdTuyXQM3KUOfvSDkWqdoPJp2SgLI3TeqRLEdizLnk
67cksI3t7TJgyREaKnhV0CIBO+l2WNSIHJY7sn/h241h4IJjwvrDk2jQW5nh
oDuOjmKv6qf/VmDT1eZad4txjIQ3iFj3FXgw/+Tg7m3j+GaMye7hKpAy/cb6
UMI4Zp7HGW3UU8JfcPNZ5vA4NtVnNTxjKTFapKv4VD+BikoNk1qxCotMz9MF
9lKouxoWbquYRrNTqvUZdyny0zwMSgTTuBDItDPeI0WsRc7YxSUzoN54vP3H
X6QIu1HWmntoBjNfxiLeZkth7dvRUmD+CZIev8IXVBksvJybxhpnUfQxtDxa
RwZpOCc4b3oWjOVHHi9ZJcMrnRlPhfVnDHpebvbcLIPihLLyCPMzeqprhzkR
MlwrX7naLOkLWtPpZvWtMoyIPUrc7CjkMnuTzf53MrSvq2ezAyhkR7urw5ch
GWRqXZPXTlJIk2bQTqc5GfaH3Om++IRCauJuRD62keN9as3q1m1q5FRadmyA
ixylhOHNOaRG7EuL4lUeclgJjIddrqsR9lBT8qYwOcy/8/QvfadGSvZOs8pv
y7Fki0eY4BiVRB2ZX7ErT4623bJa7WwqMU/Rq54ok6Osyqm44ymVPGjcwLPk
yuEW4mu6bqU6YdqGjhZ+ksMx32wglKNOrum2mN87MAnOltWh79w1SJWd8SOf
6Ekc3jHocDlRgwwGx2D29CT8yv3NnSs1yJYSvb0BdyZRt9XPmWM+nwzvDEpc
8nwSybbaPj6mmmR5bKnmk+5JJKxWuktDNAnSKWmMkUmYaKVG8vM0yW1R/oPG
eQr8RL+3Jt9iAXFLGn8Rv0WBS47D4we8FpLoIuyj71Rgf3OPbWT6QpL5MnXw
lb8CO/Jbe/VFC4mU9q9p66MKtBDjmVsXFhFmzZlvRYVff2e93NH3iwlX2F78
e6UCIQLttBZ7LaJYtMbOtUmBCG7Ghre3tIjnDxzPLIEClmYnZA3+S8hHpc7x
PQZKHJ2odYhSaZM1xqFzc2uUEB1gib8N1yE+37OTS2yUuLvMy5v3RofcTwtk
LvBWQtFbzmSH6JL2qqL1lfuUKHt10HhPji6Z7ZutOMhQQu9l5pWHvbpkj/U9
Tm2SEo5tW8V9oUvJGf/J3VGpShjVvKaJC5YSVqJ7z8ocJZ5lmGp9mVhKKK0j
0mPVSogb8+40JC0jJQxbIwuZEkFHK9UreXqEf/18Pv+LEtG/narYtWY5mffX
G6sLWioketF1ZWeWk30ap9366Sr8R8dyXAZ9csGyre3aZhUGGi0ziu/rkz98
aYFObip8Pi/pXatjQBbkNkbdCVYh43YCy3bCgGzk6k99H6UCU9MsmIQZkuCa
IN6lkyoco/CzfTsMyX8BBrSFtg==
          "]], LineBox[CompressedData["
1:eJwVlXk81Pv/xWfVWOfzGWuURKmUJY02t94vXBWRkpArRSIUblyhbvqViCyh
VLIVFSGllC2fj6XScmW/dMm+jSURJjNjvv3+OI/z5/P8c85Z6eZne4JGoVAq
fun/fe/Id29WjQDZjW2c7lihQlaWRl/4UCtABWbmZly2CunTbqV5oFGAjnKP
Yn2pyuQbxUYvF54ADZQFFxrUKpFnuEmyg3MCpPDKt87ziBK54uChZz50IQrs
dUiSX1AkQ6538IOXCZHQaVOL6g5FUrvwbqp4rRB1HmvR0O5XIJv/OQIRRkJ0
eKX4MDNGgdSV7otM2idEcZR1D0oH5cneKzylJxeF6MdaFcnXxRwyLju/jBsr
RKFqDXdV/TikcY2vS/kdIdpH93jnq8Mhb1JmHtQVCdGw1peVOQ9x0uKcgNs/
IESvxgxfOzzHyLk7r9u9vgtR2/6x6cOhGJlVEnZ+SiREcpsl9N+ZYqRoll4r
UhKh/J3bnh0uZJPP/GUOqliIkL9f3f10DTnyU4p8SIG9CIWPTT6vK5Mlh2pV
M0zdRSigvDL0tIMsqbp03dipMBGy/+9a9IdbMmR4lfnlqmIR8my+ERxhKE2m
j1nl2teI0KCfr97Gr1JkiaLd57EGEXpR0x/y6poUOeHlpqY0LkKPo+zilMcl
SXtO2HNvzUX0bzHb6zrJIv1/i+gQ6y+ilqAu5b9DWGS0R6z4xo5FxGD2oH83
sUii7O5ewnERJVc32zzKX0KuPV7SLx+/iPSmWjYmF0iQC8+/y78WLKJMfvzD
oQEGqfCVv81WUoy4zX+573jKIPVYlGPDSmLE2osfDznPII87y+XjhmJ0McOW
EaXMID8x1v/ucVKMrCTMfL0c6GT6IfdAdqsYPcs4tqzjJ5UsCfNJye4TI6oR
acxppJLNuWfIbVNilNDo6zWQQyUZYSBRxKRA0m6jj+ZOVHJr8z7bTg0KNHh7
xmbUUMh753x4Bg4U+Gtz9v51zmLCgJTkRx6hQEIaWaS1QkyQjBxm93EKLC53
U+roWyR6Ygc0Yv0pIFqzK8jj1CKhnnnEYTSKAhZJtPy8SBGRUmtTe6+CAtTH
8XWrOgWEjuRkI7+aAjqP3jRY5gqIUuuYbpv3FLA3tQgQBAmI9ra6BVErBTbN
/1Y/LS8glEZNNjp9o0BVrlYv/+ACkSjLTedoUiGqcnlTOI9PaNo25XmtpUJE
hCxuRfCJZ8n+paQeFQSusbXnb/CJhhUFLb7GVDjXwn8tD3xCzlBb+qMdFSQb
J47z7s4T0fYqwZcjqfCqkM4fcZ8jLmUID/wYpwKsdq+V3/SD2G9Q8uf6GSqo
djSwZjk/CPWqgAS3n1RorIt5ojAzQ5T18RoamDTISD5fLP1ihphe3WFToE6D
JqXm3KqtM4RbfrG1x34aBDWqXM60miZMSn0t2p/TYN32KzKed6YIOUsdL3YZ
DZxamWfyw6aIzi+DV3eRNKgSq0+pekwRwULnuhefaHBzVNPoz01TxFO0d3fC
IA1S3WbjeRnfCI23a8wtlengFJHlNbpikqA090BFKB22xT/M7DowRoSPVt4L
/T86GOMPzZy1xghJShpt21U6lHG3Gy2f5REc3cO1xTfpcPoj+cntDo9YHdm4
u/ApHTxVCieHBkYJS+PqffeH6JCmmb9KN3KESMrKcr5qy4DuoPASxo9BQjvQ
I9hOhwnJGx6ryezvJXS3dx/MMGBCpP1i4HX9XoJLcdTnbWbCTn0u14DdS5jG
WAyFmTHBsVSrnKzvIVyyN9jlOTOhnfT4sdymh0humdanxTNh0qXqsHLuV4Jp
FDZcOMOE8pz3O1t7vhADs7fspV9LwOmijWqHiWbCctD778Q/WSCV9zZXTe0l
sW/g+np1dSnwfNWr6FJAIF6N28W6AmmIeFJsPaLYilYktHvHvZCGMcszGlK2
rcjOZd8hu3JpiG/fOmId14oq+dt0euqk4TqjePWOJW0oURdvme+Xhl1/h256
t9CGjG8Ra9aoysCyvS7pMyPtKMZ72ecrETIQokIRGA12oqotiaV7Y2VgWFeP
F6XdheYYrGz8hgxEdOvbYCe70LGMmeC0ezIguvKl++VYF+K2fNAsrpCB020v
jc7PfkVdO0KCBqZloNFh61BZVA/Sw9uWmx2VBXqGdtTPyj40FDt06eYJWRie
Hwmm9PahNKn54WEfWcjOrdm4ht6PZBgqRTHBsvCfTOWR1t39iDd3eFdbgiwc
/LrFt7KpHz3o7PL1qpWFdOyKheK3AbQsZ5CIXycHUSFqWpm/D6OWVXOr+vTl
oK/u1BMXn2F07Z5ENHezHPSY/77KMnEYLaSsseswlQPTEYn63J5h1B7rNaLp
LAdq/BnvlLARlBQwgb2MkwOeldZiydtRJIVmXTtn5KBpFWbNuTCOgk3Wsl4u
yEHEUcMsh8JxNGT2x5N4KhsmnD63jfSMo+o9VQumbDZIiWorp3+fQKG2sUm5
OmwYCjD5SGKTaOzE6jdBrmyoz9p236jkG3I66eiz/yQbatMMKl5OfkN13tdw
HT82FDmEP/jAmULZft+PdJ1nwxbH/WNbLKeQc8jrObPbbDBcZpF9tHwKfYo5
tBb/zIb2Y+brLj76jrbHX63ntbIhfC33j8U331FOQnlgbScbbMM+vX058B2F
J6+sOstjw3ze4/sdmtNIvWFuwzcaBn4ackXie9OoraP6zSF1DHqUCv3T8mfQ
7gmnec1DGJh/+uSYszCL0hUuN4c5YvC1kP/u8co59MM4r7DzDwzKRI+cWBZz
KDNa4JnshsHH1Ox/v9yeQwtrUtsl/TFIKSLOsnbMo3y3rtKpaAw23FT8KbrN
R7RoZrJ1HAa/HZxMD3rLR47PdM88TsBgfaqPqccPPmJSLui438bA+vqx8aID
P5FLmvrdfx9gML0jPQxxFhDWfvR8JYmB94HwEJMCAfIQRzqq1WKgFhDw07Rf
gCq0n3KD32HwR3XZo/6lQuT1F2ViYz0G+Xu0JuSihKiac+/Ig/8wEHeXbj/p
J0KB1n07Y+YwiE6obLU8KkYfAqXURn9iwMq3Ue7NFCONVMN5cxEGa85Z1tj2
i9E/vEuFYjoOQuPMh6eNKKB9VUsjAMfBa9y1PuLXT7RXu1OdNuBw18Pf3m+W
ClMmX1T/1schERP2JKvRYEmVDTfTEAfde7+17DKlwWZiu+fQVhzu77pzwCqB
BjfKsX/OmONgcbk13mIzHfK3Rwzd3IODR/ipp2xXOtSUCsQle3GgFvLiQmLo
MP1qyFB8AAfuey/rPYN0sHlRcfuaCw5RPDJ5dwYDPDYZFj1xxUGfapSZ+ZkB
F4oefWx0x6H0bFcESWFC/tPERWUfHPYm/Xnc6wQTpApOumefxWF/kss7/lYJ
ePtAweD1dRy+qA+bR8mx4OuqaIueJBxcGO/frdzHgtkssRv9Fg6+oWmbxuNY
sOo+76ZFGg5l1nk7jBUk4VI6KWjNxUEkaezapicFKcs3K/7MxyF3ZSjCQqTg
WWqe3rKnv/KaVB/6XCsFPSnJrm4vceCfeHiV7SoNO2+dejdZjUN80OwRlScy
YK/U14O/xeFSKYP1kykLp286LHDf45CT6Ofe/Gt3UpNMdc99/sUH7fqKpXKw
EK+StKQTh2p7bFtUDhs47Lh8nW4covV3ZW6QxGBdHP2tdR8O7xefnz2BMHCM
meQnjeBQZGm6Z7EQg+KrtS4aszj4mExeOJH1i2P5USWSj4OVycWY+VEcUmSa
miYEOBTY+nDzDDlw8Xr3rnIaBwbky6S6P3AgwHaIoinBgUStRbilKg8eChNl
VyU5cMJsp2fvKXmwur2gZ49x4PRMg+SzpQqAnKijFfIc6LrClwgLVPjVe1aW
ljIHzik/dvZvUgDlTEXl78s5cGkzGve5rQh9jwzE19ZzIJhCyu6zVYZWry2l
03ocoCnWhxZ8VIYn+UuTNPQ5EEhpTzvYpAz/A2Jdj5k=
          "]], LineBox[CompressedData["
1:eJwVVnk8VIsfHYQa2+jODJm5V8XTpkmijbrfkiReL3o82bcke5Y2ilCJRLIT
UaGFqKRs9+bZRbZshWKyZH1jkLWf3x/nc/4653PO+etssHU3PCNIoVCKV/B/
bl9j5PDhOgJ/j+zkdcrLkpdKObymIAQQC9k6+RYZUrkjcHj5JgKDo87FdjYy
ZLTYtg6TcAQOVyJiX24zSTtP33zxRARCPMPMVwkzyN2qPflbHiCA/q0aapRN
J6k8eHv0IQKqUcXmFiZ0Mve8SEFABgJBujb/rH2LkIse997xXyFQExo6SQlf
S35S4b+TfotAfWDerkGdtWT6pPF7znsE4rBew1er1pK6HuxCRwKBfWnVJllB
0mSse2bR1zoEoJuMV4yhked2UIvnGhDYk2xgt9+CRmpOuBQzmxGQNbbtf6lE
I/vdVEtOdiDwR9Bor7ivFKniVlJazkVAzRR/ojYlQQpx1hPfBxFQceRxy2Il
yLaxQGL5JwIzDdkXrTQlSD/XY+Te/xDQY5/WuhouTta4tHx4sYRALnta4ba2
GJmsvLushkIHKY0LCR9mqaTHaHzZgBAdkAhc6u5zKsl0sfx3PZUOzvsUHfNk
qKSt83B5NJMOCY56on2UNaT6Nv2KvHV0SLP88ulC6Wpy9UhORQObDo5aFmeP
XV1NvnTyrlytQIcazae0a8ui5OK531V+O+jwZ1LUoq6kKPlpi211giodppf1
TnW2ipDpw+XVb9Xp8EfU1YwzySKk7rnQmkkNOgSaVkeYckTIWEdGnf0xOnxB
B/aLWgiTO85ua9C3oYPeVxH7h9+EyJ5z8u7Z9iv5S3+xI3OFyDsuCE3SkQ5d
W2uWta8LkcPnFww+udHBPzrLZlJRiHzkV/fZwI8O9jP8xBJvQVImyrnbOI4O
kMbIS1UVICujra4VJNIhNmDAfURcgPSOOyUvm0KHGP3CyZJBCtmUrGHT+ZgO
O/+O0h1JoZBhmWI/zF7RoUcoJVoWoZC/i5+PWtfTweRB/hXJDctEDpEa/qGR
DlG7FfYKc5cI87L7nI2tdGhr7DMuylwi3lf5evR30SGyc+CG8c4lwqtZj39m
iA5htS2F/fqLxODgyIKTEAOMQvcX+abPE7E/e5PrRBgg4Sfl0ug+TxwZazmg
TGVA4/oLhXkH5ok0XpH/GI0BFyXdJGhf5gizpTAhD4wBHj9cubOsOeLTWmUx
n30MeN7CkQp+M0scdHUdTtJkgJzrYr/TnVkipyqnqgxnQL5/2Ikc+1nirt/O
YNpRBvzWKFPWZs4S+gO7l54bMmAuMS3xztUZovb9oYk+Zwa8j7JMtTebJiqs
/2k5mcIAy3c6d3z1pwi1ovi8i2kMcBE78vXJ9iniMaMrIuUxA9QSzNSoUlNE
cK25/ugzBjjqSXdfbeYRh9VsK24VMEAc85pcMOMRpKhrQWkjAwxTft16c+k/
oignMElZiAkjvUEeTk8nCBF9I7k4ESboTy+yg7wmCIPhTQkCVCZof/g2P31g
ghhUqI9tozGBlj5w/0fLOIEkyEQFYEyoi4NjH4XGCeegFyGt+5jQTrk5X+k5
SrBM2nz8PJhQvj/UpOTmMOEwncUf8GJCXgmHqmg6TORF+XoZXGRC3J680crt
w4RO/frzSteYUCLx26r08xDhddjZpTGMCToWGgbWm4eIOmWKnWImE7K2VHZ1
tQ8QvgJbT37sZoL1a3SLhxmXGDgi1qH0nQmGL/JMWtW5xMmQUavrXCbwWxx0
rGlcQlHqpfvuESZ89iiJHavoJz6y1SIe/mKCtJvbuybVfgLbe7DBG5GB7vAv
DFukjyhzM9RHdWUAKX4w+q2zl6B+vXLM7Y0MJKhW/U7paSd+ZGyITvWThVkX
g2peZzkRvXndqvdG6yDk+3YdP+5TPDLRocpmvRzcad1ifUSzEb94IdDLT0EO
sjL9m7adb8QtDVPk45Tk4OSim9XmjEZcmdp28aOyHEzriqyypTXhNZe1N+/Z
JwdquY1jvT+acMHTirfFDeXAw6qG1ItpwX1k+o4XBMnBF3Zp+9bV7bhptEWD
+KAc3E5vQEwNe3D2ayrL+acc7L4+zfGM7sF7mwrO1ozJQXN5YATR1oPbS60V
uMmXA1NL85RFs17cLbRy128BFnBSyZ4QtW94YMCOhP/YLBDeq7WM6nzHn7oI
2LcZsmCqIUazNrgfdwnLyVUzZkHPk2W87Wk/znlmthR1mgX8bX/mrP7Uj78a
zI/9y5oFsb41kX3ruHixrVNNtSsLjoaT2MU8Lt5o0sIpCmGBpLrzq/ChH/iv
I0/mUktZUF/ZFid7ZQj3K0oNKv/AgvQwsTxq+hBOUU2UGC5ngcKLjfu21w7h
ovIRG1TrWJDIjSCFWcM4c+6Sbnk7C+K+tWnSiWF8V7Z+wtAkC8qcZsu3SI/g
bgz+3p0KbFAIENpDfB/DeWHjZUZKbKjR2p/Go43jPoLD+le2sOG6ADrhDOO4
30S39b872JDVqhu96+E4HlZTFWKkyQbJg8f/2mE3gWddTeq4bMQGrXZV+Rbf
Sbz/x+FLZbfYsEcl4+uACg8/nNqQvjWMDXIn469oneThD01M66PusmEqzPBK
tzsPt6w7v9Euhg1fCn1U6l/y8K7chx+FHrFhRlfULl91Cm/2XV6vXcoGu8+0
e7e0+fhO9VC97A9sWFg2+Mw5x8cjxxkXGBVsuPP74JBCOB8/YbO97kcdG0Y2
9houfubjtUfNfW52rvTbrHz3tvM0XiZdWFPFZ8PFl9vnj2bO4BvqtPk7frHB
xDbruVPjDB4Q3ITFL7DBM6H+X97cDH5wdsjLURCFBN3jI7tPzOKFX2WwNTQU
pCTn75ILs/irTB/P49tQeP52cPCWyxwubSPw4BUHBaWSy6HNyXO4h1x4lZwq
CsYyHZFp9XM4J/wxe2QvChy7nTfaVObxZ54tlWFHURj70BvVvzSPpx/Yyaq3
QaGuv9h7+c0iXnaCGrRgj0Lu95hPCz8X8T6r/p9bHFHwj71yKGbDEq4QGFN4
0w0FuzH1fVmRS/jjyrnT4ItCVq25xZMLy/iTv8riX0ejcJxhKXFVlQKV1kmU
vjgUvi0wDRROUWDgvLcjLQmFEpEkDTVvCihFK+11TUMh/g46m1JAgYyO0Hal
HBT2v2vQ6NISgCybU8zEKhRIA263urcgVHsqX6uuRaGjib/mXbIgDAUJD8zU
o3Bgfly9qUIQNmcU5J9qRWFk2bu6bZ0QPP3JMpL4jsL8/ER/fI0Q1C7wizW4
KGToPHDQnBWCn+INik6DKFjK9wbE/rEKtu4I4FeOoTBjVNUaELwKnnlx7wfM
o5Ddra9ToCcMtcElCzlLKFS5d3yN8xeGnzGxdt0UDIz3JtFM3gjDtnfHdu0X
xWBTVoVdxHoReLH4onkKwaDzbOmru6tEIfuGj/TZ7Rgg9pvvGwisgVFNi8Ab
KhgcGBqvUdReA8r8I1OPdmHgjm8w1Q1dA89s6Z+/7cOAe3pIMFeWCln463jT
oxh4+6hkcnTEYGgmcc1lXQzUT3kcqogVg005gVfi9DE4Jo66ig+JQQbb0LzV
EAPHJIrDQIQ4PJ6blD9hhUFVas6e4BkJ4OZ2RLrYYrDfYGOzsZEkKDiSAmFn
MLBL0smyfisJ6W0R/VXOK/qRHCdXfylIfc3JPHQJg9SmbXdn42jQ48SUtfbF
APv2OMeviQbYxuWQa9cwMOsz7/IXl4bkyHqnomAMmI7R0QdvSUOiqwtH/R4G
9b1iDkH31kKX4t+pp6IxyDow2NDZsRbWfdWgecZhcCfZXOTIRgTij4vxch5g
cNBhgZFfhEC7wJRt/cOV/ZKfHZ8UowPzfVfLyKMVfyNPrSzLlZ+z6Vn+5mcY
ZHfi56niDGjtuaekk43BcbGq97MODKDHXo47k4tByUZEe6icAVGrdC+nv8Vg
YTvvqVcoE3KcR4b5xMq+lI4Hp5pl4H+s/n8q
          "]], LineBox[CompressedData["
1:eJwVUXs0lekbNe6X414uub3f+UTRjYpfGN9T1EhSSMmtIkNU1JAWSglNIRrG
NZJ7GXQxLcp43xBDF5NqHLfCQYTKEZ2jU35n/njWs/ba69nr2XtTfqGuAeJi
YmInRPPfVh6bP+Qrh2DPpBmvx0CLXDm51zJWhNmdl6d0NbRIcItuYjkLgdK0
VoTtek3iMR1bZa2E4DD/d6OONg2yTYP7qlMZwe4syknhoAZhB92k+WoI/LP3
y37IXUp6FCweOWgjyDZzC72+cQlp3ZAz3r8MQZZSW5sRV53U+giVT+iK8D3V
GtN0dZJW0+SbY4BAjSRl2iyoEQe3XcKJ5Qjq7aL764ZUiUXMXfqsMYLfi0Kc
fApViWHp0h1qKxG0mQ26Nh1UJWJf+nKsViEYm468lzimQupygyyTzBGEvAhf
ZimpQsqan/gabEBgK1lpuaZAmWRMrUm8txFB4KFJszMWyiTMdu5V3/8QWGY2
NB45rkRWDJ8/uYpBkPyuPnG5gEU0FEZzCCCobtrUICxkEckNDo/2bEEQrq6a
QRxZZDBBSeXMVgTnOD6hz4oVSPbKvKpnOxBYJ1370ztYnnye3VZ6YSeCrU2+
S55qy5Ndjbxrm3YhkORYO/I75Ii0m2NyqSsCB6dB053mciQiRhB8Zj+Cj0W9
FuHqsuSfbaV+670QLKw73be7U4asUnXxnPBGIB9kJ5OQLENGSiu2ux9EMFvD
utMhL0NcO/etWB2I4O8/31WSpdKkOkcCcYMQRJWvbtjRJ0XkDtdo5gQjqHum
lDp6Q4oQvrSM1HEEj5+f9jY2lyJr2fdH+8MROEd9azLwlSSsiCXFyXGiPh1C
Bn99I06CGJK7JV6Uz4XJv/h3xEmz3NHf+AkivQqOv3aiOIkqaD5/+BIC2U7b
Ya914mSi7eRBmzQRf/a0dkTyD6R12Qu9qXwEvQdr13QfECPs0ZilRdcR/MSL
bL9qI0bO1KxQ9LiBgBW9Tq5VW4xssD8nbC4R5VuV8Y2qXMRFx9b25VUi2NwZ
oNhd8h3HkpTsHfWi//cdiI5tFOL3AyRD8ADBhtQTD6UThXjv19m08gYEA3rf
NC2chXiVheclCYLgrLen97nBr5hTaRT1sBXBza7qD8dYX7F5FvYyfYVAi8y0
MbECnF/L29fzWtT30TjycZcAy3Yt33OxG8FMp84TXUqA37KSnbi9CJ42/nJk
tIWPk+M8fswbQvBbocrjeVU+Hjs2o6/wEYFEZu7kcTKPXZIMdeo/IWCuVj2Q
yJ7HDRX7NAN5COiu4PkvofM4nfuXcvOcqC+FO3l8NI9h/2WxaCECqVOKd80u
zuFce3r4vRwFJiX6j938P+OdOu6lHYYUcA6sbTR25eHskTXEy4iCdx5pMds3
8vBIlWzflDEFbG5EYoEWD8dAg4qyKQXuEz4v376dwX8E0DFuZhQwNkLHqrAZ
LH97xrX/Rwq+z8aIT+V+wm32V8Q+7KVAkrdgHKj7AaspBenEelDwTfITZ+v0
NPbt3myh4knB/eiRn480TuP5I3Mh5j4U/BRS9Sb60DQ2SvXuPuVPgf/ETfu6
W1M4vsekejGUggDPR9bjDpN48/E2L9VLFLzcg1pO1IzjBc7EtpbLFNwbZPuY
x4/jWjuWeWQyBbb2Wrqm+8exkbaL7ECqyJ9BsH+TxDhmtfTWVmRSUL5b/1uE
1zvM0f6gCCUUVC//XBK4ZAyHPV5CjmPR/e58nZQKLr6u62f4dI6Cw1oO6aWx
b7DVetM1fl8oeOTKM47Y/Aa/2v7Zks+nQKol1ekXiTdYNjJxh6GQApdnXozg
4gAOe3HrZIw4G9yYiiG99H4MibNklTIbUgfq43zv9OLhj/E+KStEfId6Y6Z8
NzZsLs909mKDh6YgL177H5y2usmkq5EN0mUFpnG3b+GfZyVftJvQUPnQKSku
toXxu8NDl1JpiFQeumbS0s0cjXMTOl6lQUw+ycBGksNEuNV2s9JpCK0kHyPt
OcyvcxFX0jJpUOrTux32mMNUbxJ8zcqnoanZK/pUew8jeLT4b1klDYbm4d/d
e/uYtC5WSksbDVn7z9wdUR1kcouPBSW205DX7rxu5cZBpjj8uZ3DExoKNf82
SPEYZO5rpC08eU6DHfcrp/b6INPvqR708jUNT2q2ZF5ZO8QYc7Xthrk0JM3X
KbW6DzPraqP0S0ZpKAlZXWAWPcxYJfQJAt7RINulZd1cOMw4GeffnnhPg1xG
W5jn1DBzMgTpz8zQkFl0gRuQwGVibM4L7s7SYMWymlb6g8skKA6/Cp+jwdmQ
/WKoi8tk1xQn8fk0LLcfMJGhRpiic5KBDxZEenNBZZ4OI0ylS8CWGCENPX5l
Mr2hI0wtu1XP9jsNWOLG64SsEaZx1kiwuEjDlyT9HF88wvwfLD9bzQ==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
      Slot["HighlightElements"], 
      Slot["LayoutOptions"], 
      Slot["Meta"], 
      Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             AbsoluteThickness[2], 
             Dashing[{Small, Small}], 
             RGBColor[0.5, 0, 0.5]], 
            Line[CompressedData["
1:eJwlyms4FPgCx/Exki5CCWXTsD01ucRSHZfw+8vq4tZTctnWKmKNVqQtpajO
o62ULmwXHEahGLmtnWxkXZYaMyjRZUIGwwwGzYyZESmn85wX3+fz5msaGrMn
nEqhUI587X9mnwmdbxN2xWXB2f/b1GniFWASiThP7bigr849q00yMYmH7qtZ
881fza6/StMwScbfjlE1AV+Ncj5+eIqWgQPdRhOuphno/MS4KaWxsNHg3MVv
1rKg2T1AH6dVIcK+2r1wUxXu8XJiJTQuyq2TV738lQtF+iNzQQoXL3y3Tq0b
4mJbRIuwY5qLrkpaf54/D2PqU37VnTxQC204+o4tsHf2cUy+2Aqd13y/CWob
2stmqfQPL9A29ZCf4tOOszxLD5v9nXC+8sibMduJ0rLk7iirLlDiLffS67ox
umw0xSOkCyYxJI71qRv0OA+X9Te7cLXjNdvPvgd3nRbfE053IZB/Ncqqogdp
3JSf9z3thlGVxfaJgveIE16XbQ96jxXzshIMswTIWdyStNS9D3c/1uczXvfD
xfl00LngPqhu2cS3qvrRE22x+cOJPgyL0tb5rBjAio4rotaiPjASsgOKfxxA
arrXzku6/bCKtfB7LxxA0trn2nPd/aC8/E0cPCNEBF5mjB0V4lCv2P3cVhEo
uarq7itCfDDY5XAzQoT0eat6ePlCfPch9q/2FBGauT+vZr0RQiuWr//0rQjr
987mhjsOouSzSFkQI8Ywg17cqzaEI78ye+sKhnEoLbG2/YYIkSF187ucJKAq
cwV1LBGsmXoHVRESZAY0U8r+EaGIXh/j9bsEvFV6blcVIghn1F0LRyWwKCjk
7AwUw+XsW75N1hjGnnS2/0MbhvFPlNcbFk8geshMyC4dgV+bkdj2uhR9we8W
NHBHsOrs6Snvh1L48i9ZtQ2OILvL/89MjhT2LeL4IaNR5L0NH2yhyKD+x31d
g4ujmIt++ubucRnSE0xdTuyXQM3KUOfvSDkWqdoPJp2SgLI3TeqRLEdizLnk
67cksI3t7TJgyREaKnhV0CIBO+l2WNSIHJY7sn/h241h4IJjwvrDk2jQW5nh
oDuOjmKv6qf/VmDT1eZad4txjIQ3iFj3FXgw/+Tg7m3j+GaMye7hKpAy/cb6
UMI4Zp7HGW3UU8JfcPNZ5vA4NtVnNTxjKTFapKv4VD+BikoNk1qxCotMz9MF
9lKouxoWbquYRrNTqvUZdyny0zwMSgTTuBDItDPeI0WsRc7YxSUzoN54vP3H
X6QIu1HWmntoBjNfxiLeZkth7dvRUmD+CZIev8IXVBksvJybxhpnUfQxtDxa
RwZpOCc4b3oWjOVHHi9ZJcMrnRlPhfVnDHpebvbcLIPihLLyCPMzeqprhzkR
MlwrX7naLOkLWtPpZvWtMoyIPUrc7CjkMnuTzf53MrSvq2ezAyhkR7urw5ch
GWRqXZPXTlJIk2bQTqc5GfaH3Om++IRCauJuRD62keN9as3q1m1q5FRadmyA
ixylhOHNOaRG7EuL4lUeclgJjIddrqsR9lBT8qYwOcy/8/QvfadGSvZOs8pv
y7Fki0eY4BiVRB2ZX7ErT4623bJa7WwqMU/Rq54ok6Osyqm44ymVPGjcwLPk
yuEW4mu6bqU6YdqGjhZ+ksMx32wglKNOrum2mN87MAnOltWh79w1SJWd8SOf
6Ekc3jHocDlRgwwGx2D29CT8yv3NnSs1yJYSvb0BdyZRt9XPmWM+nwzvDEpc
8nwSybbaPj6mmmR5bKnmk+5JJKxWuktDNAnSKWmMkUmYaKVG8vM0yW1R/oPG
eQr8RL+3Jt9iAXFLGn8Rv0WBS47D4we8FpLoIuyj71Rgf3OPbWT6QpL5MnXw
lb8CO/Jbe/VFC4mU9q9p66MKtBDjmVsXFhFmzZlvRYVff2e93NH3iwlX2F78
e6UCIQLttBZ7LaJYtMbOtUmBCG7Ghre3tIjnDxzPLIEClmYnZA3+S8hHpc7x
PQZKHJ2odYhSaZM1xqFzc2uUEB1gib8N1yE+37OTS2yUuLvMy5v3RofcTwtk
LvBWQtFbzmSH6JL2qqL1lfuUKHt10HhPji6Z7ZutOMhQQu9l5pWHvbpkj/U9
Tm2SEo5tW8V9oUvJGf/J3VGpShjVvKaJC5YSVqJ7z8ocJZ5lmGp9mVhKKK0j
0mPVSogb8+40JC0jJQxbIwuZEkFHK9UreXqEf/18Pv+LEtG/narYtWY5mffX
G6sLWioketF1ZWeWk30ap9366Sr8R8dyXAZ9csGyre3aZhUGGi0ziu/rkz98
aYFObip8Pi/pXatjQBbkNkbdCVYh43YCy3bCgGzk6k99H6UCU9MsmIQZkuCa
IN6lkyoco/CzfTsMyX8BBrSFtg==
             "]], 
            Line[CompressedData["
1:eJwVlXk81Pv/xWfVWOfzGWuURKmUJY02t94vXBWRkpArRSIUblyhbvqViCyh
VLIVFSGllC2fj6XScmW/dMm+jSURJjNjvv3+OI/z5/P8c85Z6eZne4JGoVAq
fun/fe/Id29WjQDZjW2c7lihQlaWRl/4UCtABWbmZly2CunTbqV5oFGAjnKP
Yn2pyuQbxUYvF54ADZQFFxrUKpFnuEmyg3MCpPDKt87ziBK54uChZz50IQrs
dUiSX1AkQ6538IOXCZHQaVOL6g5FUrvwbqp4rRB1HmvR0O5XIJv/OQIRRkJ0
eKX4MDNGgdSV7otM2idEcZR1D0oH5cneKzylJxeF6MdaFcnXxRwyLju/jBsr
RKFqDXdV/TikcY2vS/kdIdpH93jnq8Mhb1JmHtQVCdGw1peVOQ9x0uKcgNs/
IESvxgxfOzzHyLk7r9u9vgtR2/6x6cOhGJlVEnZ+SiREcpsl9N+ZYqRoll4r
UhKh/J3bnh0uZJPP/GUOqliIkL9f3f10DTnyU4p8SIG9CIWPTT6vK5Mlh2pV
M0zdRSigvDL0tIMsqbp03dipMBGy/+9a9IdbMmR4lfnlqmIR8my+ERxhKE2m
j1nl2teI0KCfr97Gr1JkiaLd57EGEXpR0x/y6poUOeHlpqY0LkKPo+zilMcl
SXtO2HNvzUX0bzHb6zrJIv1/i+gQ6y+ilqAu5b9DWGS0R6z4xo5FxGD2oH83
sUii7O5ewnERJVc32zzKX0KuPV7SLx+/iPSmWjYmF0iQC8+/y78WLKJMfvzD
oQEGqfCVv81WUoy4zX+573jKIPVYlGPDSmLE2osfDznPII87y+XjhmJ0McOW
EaXMID8x1v/ucVKMrCTMfL0c6GT6IfdAdqsYPcs4tqzjJ5UsCfNJye4TI6oR
acxppJLNuWfIbVNilNDo6zWQQyUZYSBRxKRA0m6jj+ZOVHJr8z7bTg0KNHh7
xmbUUMh753x4Bg4U+Gtz9v51zmLCgJTkRx6hQEIaWaS1QkyQjBxm93EKLC53
U+roWyR6Ygc0Yv0pIFqzK8jj1CKhnnnEYTSKAhZJtPy8SBGRUmtTe6+CAtTH
8XWrOgWEjuRkI7+aAjqP3jRY5gqIUuuYbpv3FLA3tQgQBAmI9ra6BVErBTbN
/1Y/LS8glEZNNjp9o0BVrlYv/+ACkSjLTedoUiGqcnlTOI9PaNo25XmtpUJE
hCxuRfCJZ8n+paQeFQSusbXnb/CJhhUFLb7GVDjXwn8tD3xCzlBb+qMdFSQb
J47z7s4T0fYqwZcjqfCqkM4fcZ8jLmUID/wYpwKsdq+V3/SD2G9Q8uf6GSqo
djSwZjk/CPWqgAS3n1RorIt5ojAzQ5T18RoamDTISD5fLP1ihphe3WFToE6D
JqXm3KqtM4RbfrG1x34aBDWqXM60miZMSn0t2p/TYN32KzKed6YIOUsdL3YZ
DZxamWfyw6aIzi+DV3eRNKgSq0+pekwRwULnuhefaHBzVNPoz01TxFO0d3fC
IA1S3WbjeRnfCI23a8wtlengFJHlNbpikqA090BFKB22xT/M7DowRoSPVt4L
/T86GOMPzZy1xghJShpt21U6lHG3Gy2f5REc3cO1xTfpcPoj+cntDo9YHdm4
u/ApHTxVCieHBkYJS+PqffeH6JCmmb9KN3KESMrKcr5qy4DuoPASxo9BQjvQ
I9hOhwnJGx6ryezvJXS3dx/MMGBCpP1i4HX9XoJLcdTnbWbCTn0u14DdS5jG
WAyFmTHBsVSrnKzvIVyyN9jlOTOhnfT4sdymh0humdanxTNh0qXqsHLuV4Jp
FDZcOMOE8pz3O1t7vhADs7fspV9LwOmijWqHiWbCctD778Q/WSCV9zZXTe0l
sW/g+np1dSnwfNWr6FJAIF6N28W6AmmIeFJsPaLYilYktHvHvZCGMcszGlK2
rcjOZd8hu3JpiG/fOmId14oq+dt0euqk4TqjePWOJW0oURdvme+Xhl1/h256
t9CGjG8Ra9aoysCyvS7pMyPtKMZ72ecrETIQokIRGA12oqotiaV7Y2VgWFeP
F6XdheYYrGz8hgxEdOvbYCe70LGMmeC0ezIguvKl++VYF+K2fNAsrpCB020v
jc7PfkVdO0KCBqZloNFh61BZVA/Sw9uWmx2VBXqGdtTPyj40FDt06eYJWRie
Hwmm9PahNKn54WEfWcjOrdm4ht6PZBgqRTHBsvCfTOWR1t39iDd3eFdbgiwc
/LrFt7KpHz3o7PL1qpWFdOyKheK3AbQsZ5CIXycHUSFqWpm/D6OWVXOr+vTl
oK/u1BMXn2F07Z5ENHezHPSY/77KMnEYLaSsseswlQPTEYn63J5h1B7rNaLp
LAdq/BnvlLARlBQwgb2MkwOeldZiydtRJIVmXTtn5KBpFWbNuTCOgk3Wsl4u
yEHEUcMsh8JxNGT2x5N4KhsmnD63jfSMo+o9VQumbDZIiWorp3+fQKG2sUm5
OmwYCjD5SGKTaOzE6jdBrmyoz9p236jkG3I66eiz/yQbatMMKl5OfkN13tdw
HT82FDmEP/jAmULZft+PdJ1nwxbH/WNbLKeQc8jrObPbbDBcZpF9tHwKfYo5
tBb/zIb2Y+brLj76jrbHX63ntbIhfC33j8U331FOQnlgbScbbMM+vX058B2F
J6+sOstjw3ze4/sdmtNIvWFuwzcaBn4ackXie9OoraP6zSF1DHqUCv3T8mfQ
7gmnec1DGJh/+uSYszCL0hUuN4c5YvC1kP/u8co59MM4r7DzDwzKRI+cWBZz
KDNa4JnshsHH1Ox/v9yeQwtrUtsl/TFIKSLOsnbMo3y3rtKpaAw23FT8KbrN
R7RoZrJ1HAa/HZxMD3rLR47PdM88TsBgfaqPqccPPmJSLui438bA+vqx8aID
P5FLmvrdfx9gML0jPQxxFhDWfvR8JYmB94HwEJMCAfIQRzqq1WKgFhDw07Rf
gCq0n3KD32HwR3XZo/6lQuT1F2ViYz0G+Xu0JuSihKiac+/Ig/8wEHeXbj/p
J0KB1n07Y+YwiE6obLU8KkYfAqXURn9iwMq3Ue7NFCONVMN5cxEGa85Z1tj2
i9E/vEuFYjoOQuPMh6eNKKB9VUsjAMfBa9y1PuLXT7RXu1OdNuBw18Pf3m+W
ClMmX1T/1schERP2JKvRYEmVDTfTEAfde7+17DKlwWZiu+fQVhzu77pzwCqB
BjfKsX/OmONgcbk13mIzHfK3Rwzd3IODR/ipp2xXOtSUCsQle3GgFvLiQmLo
MP1qyFB8AAfuey/rPYN0sHlRcfuaCw5RPDJ5dwYDPDYZFj1xxUGfapSZ+ZkB
F4oefWx0x6H0bFcESWFC/tPERWUfHPYm/Xnc6wQTpApOumefxWF/kss7/lYJ
ePtAweD1dRy+qA+bR8mx4OuqaIueJBxcGO/frdzHgtkssRv9Fg6+oWmbxuNY
sOo+76ZFGg5l1nk7jBUk4VI6KWjNxUEkaezapicFKcs3K/7MxyF3ZSjCQqTg
WWqe3rKnv/KaVB/6XCsFPSnJrm4vceCfeHiV7SoNO2+dejdZjUN80OwRlScy
YK/U14O/xeFSKYP1kykLp286LHDf45CT6Ofe/Gt3UpNMdc99/sUH7fqKpXKw
EK+StKQTh2p7bFtUDhs47Lh8nW4covV3ZW6QxGBdHP2tdR8O7xefnz2BMHCM
meQnjeBQZGm6Z7EQg+KrtS4aszj4mExeOJH1i2P5USWSj4OVycWY+VEcUmSa
miYEOBTY+nDzDDlw8Xr3rnIaBwbky6S6P3AgwHaIoinBgUStRbilKg8eChNl
VyU5cMJsp2fvKXmwur2gZ49x4PRMg+SzpQqAnKijFfIc6LrClwgLVPjVe1aW
ljIHzik/dvZvUgDlTEXl78s5cGkzGve5rQh9jwzE19ZzIJhCyu6zVYZWry2l
03ocoCnWhxZ8VIYn+UuTNPQ5EEhpTzvYpAz/A2Jdj5k=
             "]], 
            Line[CompressedData["
1:eJwVVnk8VIsfHYQa2+jODJm5V8XTpkmijbrfkiReL3o82bcke5Y2ilCJRLIT
UaGFqKRs9+bZRbZshWKyZH1jkLWf3x/nc/4653PO+etssHU3PCNIoVCKV/B/
bl9j5PDhOgJ/j+zkdcrLkpdKObymIAQQC9k6+RYZUrkjcHj5JgKDo87FdjYy
ZLTYtg6TcAQOVyJiX24zSTtP33zxRARCPMPMVwkzyN2qPflbHiCA/q0aapRN
J6k8eHv0IQKqUcXmFiZ0Mve8SEFABgJBujb/rH2LkIse997xXyFQExo6SQlf
S35S4b+TfotAfWDerkGdtWT6pPF7znsE4rBew1er1pK6HuxCRwKBfWnVJllB
0mSse2bR1zoEoJuMV4yhked2UIvnGhDYk2xgt9+CRmpOuBQzmxGQNbbtf6lE
I/vdVEtOdiDwR9Bor7ivFKniVlJazkVAzRR/ojYlQQpx1hPfBxFQceRxy2Il
yLaxQGL5JwIzDdkXrTQlSD/XY+Te/xDQY5/WuhouTta4tHx4sYRALnta4ba2
GJmsvLushkIHKY0LCR9mqaTHaHzZgBAdkAhc6u5zKsl0sfx3PZUOzvsUHfNk
qKSt83B5NJMOCY56on2UNaT6Nv2KvHV0SLP88ulC6Wpy9UhORQObDo5aFmeP
XV1NvnTyrlytQIcazae0a8ui5OK531V+O+jwZ1LUoq6kKPlpi211giodppf1
TnW2ipDpw+XVb9Xp8EfU1YwzySKk7rnQmkkNOgSaVkeYckTIWEdGnf0xOnxB
B/aLWgiTO85ua9C3oYPeVxH7h9+EyJ5z8u7Z9iv5S3+xI3OFyDsuCE3SkQ5d
W2uWta8LkcPnFww+udHBPzrLZlJRiHzkV/fZwI8O9jP8xBJvQVImyrnbOI4O
kMbIS1UVICujra4VJNIhNmDAfURcgPSOOyUvm0KHGP3CyZJBCtmUrGHT+ZgO
O/+O0h1JoZBhmWI/zF7RoUcoJVoWoZC/i5+PWtfTweRB/hXJDctEDpEa/qGR
DlG7FfYKc5cI87L7nI2tdGhr7DMuylwi3lf5evR30SGyc+CG8c4lwqtZj39m
iA5htS2F/fqLxODgyIKTEAOMQvcX+abPE7E/e5PrRBgg4Sfl0ug+TxwZazmg
TGVA4/oLhXkH5ok0XpH/GI0BFyXdJGhf5gizpTAhD4wBHj9cubOsOeLTWmUx
n30MeN7CkQp+M0scdHUdTtJkgJzrYr/TnVkipyqnqgxnQL5/2Ikc+1nirt/O
YNpRBvzWKFPWZs4S+gO7l54bMmAuMS3xztUZovb9oYk+Zwa8j7JMtTebJiqs
/2k5mcIAy3c6d3z1pwi1ovi8i2kMcBE78vXJ9iniMaMrIuUxA9QSzNSoUlNE
cK25/ugzBjjqSXdfbeYRh9VsK24VMEAc85pcMOMRpKhrQWkjAwxTft16c+k/
oignMElZiAkjvUEeTk8nCBF9I7k4ESboTy+yg7wmCIPhTQkCVCZof/g2P31g
ghhUqI9tozGBlj5w/0fLOIEkyEQFYEyoi4NjH4XGCeegFyGt+5jQTrk5X+k5
SrBM2nz8PJhQvj/UpOTmMOEwncUf8GJCXgmHqmg6TORF+XoZXGRC3J680crt
w4RO/frzSteYUCLx26r08xDhddjZpTGMCToWGgbWm4eIOmWKnWImE7K2VHZ1
tQ8QvgJbT37sZoL1a3SLhxmXGDgi1qH0nQmGL/JMWtW5xMmQUavrXCbwWxx0
rGlcQlHqpfvuESZ89iiJHavoJz6y1SIe/mKCtJvbuybVfgLbe7DBG5GB7vAv
DFukjyhzM9RHdWUAKX4w+q2zl6B+vXLM7Y0MJKhW/U7paSd+ZGyITvWThVkX
g2peZzkRvXndqvdG6yDk+3YdP+5TPDLRocpmvRzcad1ifUSzEb94IdDLT0EO
sjL9m7adb8QtDVPk45Tk4OSim9XmjEZcmdp28aOyHEzriqyypTXhNZe1N+/Z
JwdquY1jvT+acMHTirfFDeXAw6qG1ItpwX1k+o4XBMnBF3Zp+9bV7bhptEWD
+KAc3E5vQEwNe3D2ayrL+acc7L4+zfGM7sF7mwrO1ozJQXN5YATR1oPbS60V
uMmXA1NL85RFs17cLbRy128BFnBSyZ4QtW94YMCOhP/YLBDeq7WM6nzHn7oI
2LcZsmCqIUazNrgfdwnLyVUzZkHPk2W87Wk/znlmthR1mgX8bX/mrP7Uj78a
zI/9y5oFsb41kX3ruHixrVNNtSsLjoaT2MU8Lt5o0sIpCmGBpLrzq/ChH/iv
I0/mUktZUF/ZFid7ZQj3K0oNKv/AgvQwsTxq+hBOUU2UGC5ngcKLjfu21w7h
ovIRG1TrWJDIjSCFWcM4c+6Sbnk7C+K+tWnSiWF8V7Z+wtAkC8qcZsu3SI/g
bgz+3p0KbFAIENpDfB/DeWHjZUZKbKjR2p/Go43jPoLD+le2sOG6ADrhDOO4
30S39b872JDVqhu96+E4HlZTFWKkyQbJg8f/2mE3gWddTeq4bMQGrXZV+Rbf
Sbz/x+FLZbfYsEcl4+uACg8/nNqQvjWMDXIn469oneThD01M66PusmEqzPBK
tzsPt6w7v9Euhg1fCn1U6l/y8K7chx+FHrFhRlfULl91Cm/2XV6vXcoGu8+0
e7e0+fhO9VC97A9sWFg2+Mw5x8cjxxkXGBVsuPP74JBCOB8/YbO97kcdG0Y2
9houfubjtUfNfW52rvTbrHz3tvM0XiZdWFPFZ8PFl9vnj2bO4BvqtPk7frHB
xDbruVPjDB4Q3ITFL7DBM6H+X97cDH5wdsjLURCFBN3jI7tPzOKFX2WwNTQU
pCTn75ILs/irTB/P49tQeP52cPCWyxwubSPw4BUHBaWSy6HNyXO4h1x4lZwq
CsYyHZFp9XM4J/wxe2QvChy7nTfaVObxZ54tlWFHURj70BvVvzSPpx/Yyaq3
QaGuv9h7+c0iXnaCGrRgj0Lu95hPCz8X8T6r/p9bHFHwj71yKGbDEq4QGFN4
0w0FuzH1fVmRS/jjyrnT4ItCVq25xZMLy/iTv8riX0ejcJxhKXFVlQKV1kmU
vjgUvi0wDRROUWDgvLcjLQmFEpEkDTVvCihFK+11TUMh/g46m1JAgYyO0Hal
HBT2v2vQ6NISgCybU8zEKhRIA263urcgVHsqX6uuRaGjib/mXbIgDAUJD8zU
o3Bgfly9qUIQNmcU5J9qRWFk2bu6bZ0QPP3JMpL4jsL8/ER/fI0Q1C7wizW4
KGToPHDQnBWCn+INik6DKFjK9wbE/rEKtu4I4FeOoTBjVNUaELwKnnlx7wfM
o5Ddra9ToCcMtcElCzlLKFS5d3yN8xeGnzGxdt0UDIz3JtFM3gjDtnfHdu0X
xWBTVoVdxHoReLH4onkKwaDzbOmru6tEIfuGj/TZ7Rgg9pvvGwisgVFNi8Ab
KhgcGBqvUdReA8r8I1OPdmHgjm8w1Q1dA89s6Z+/7cOAe3pIMFeWCln463jT
oxh4+6hkcnTEYGgmcc1lXQzUT3kcqogVg005gVfi9DE4Jo66ig+JQQbb0LzV
EAPHJIrDQIQ4PJ6blD9hhUFVas6e4BkJ4OZ2RLrYYrDfYGOzsZEkKDiSAmFn
MLBL0smyfisJ6W0R/VXOK/qRHCdXfylIfc3JPHQJg9SmbXdn42jQ48SUtfbF
APv2OMeviQbYxuWQa9cwMOsz7/IXl4bkyHqnomAMmI7R0QdvSUOiqwtH/R4G
9b1iDkH31kKX4t+pp6IxyDow2NDZsRbWfdWgecZhcCfZXOTIRgTij4vxch5g
cNBhgZFfhEC7wJRt/cOV/ZKfHZ8UowPzfVfLyKMVfyNPrSzLlZ+z6Vn+5mcY
ZHfi56niDGjtuaekk43BcbGq97MODKDHXo47k4tByUZEe6icAVGrdC+nv8Vg
YTvvqVcoE3KcR4b5xMq+lI4Hp5pl4H+s/n8q
             "]], 
            Line[CompressedData["
1:eJwVUXs0lekbNe6X414uub3f+UTRjYpfGN9T1EhSSMmtIkNU1JAWSglNIRrG
NZJ7GXQxLcp43xBDF5NqHLfCQYTKEZ2jU35n/njWs/ba69nr2XtTfqGuAeJi
YmInRPPfVh6bP+Qrh2DPpBmvx0CLXDm51zJWhNmdl6d0NbRIcItuYjkLgdK0
VoTtek3iMR1bZa2E4DD/d6OONg2yTYP7qlMZwe4syknhoAZhB92k+WoI/LP3
y37IXUp6FCweOWgjyDZzC72+cQlp3ZAz3r8MQZZSW5sRV53U+giVT+iK8D3V
GtN0dZJW0+SbY4BAjSRl2iyoEQe3XcKJ5Qjq7aL764ZUiUXMXfqsMYLfi0Kc
fApViWHp0h1qKxG0mQ26Nh1UJWJf+nKsViEYm468lzimQupygyyTzBGEvAhf
ZimpQsqan/gabEBgK1lpuaZAmWRMrUm8txFB4KFJszMWyiTMdu5V3/8QWGY2
NB45rkRWDJ8/uYpBkPyuPnG5gEU0FEZzCCCobtrUICxkEckNDo/2bEEQrq6a
QRxZZDBBSeXMVgTnOD6hz4oVSPbKvKpnOxBYJ1370ztYnnye3VZ6YSeCrU2+
S55qy5Ndjbxrm3YhkORYO/I75Ii0m2NyqSsCB6dB053mciQiRhB8Zj+Cj0W9
FuHqsuSfbaV+670QLKw73be7U4asUnXxnPBGIB9kJ5OQLENGSiu2ux9EMFvD
utMhL0NcO/etWB2I4O8/31WSpdKkOkcCcYMQRJWvbtjRJ0XkDtdo5gQjqHum
lDp6Q4oQvrSM1HEEj5+f9jY2lyJr2fdH+8MROEd9azLwlSSsiCXFyXGiPh1C
Bn99I06CGJK7JV6Uz4XJv/h3xEmz3NHf+AkivQqOv3aiOIkqaD5/+BIC2U7b
Ya914mSi7eRBmzQRf/a0dkTyD6R12Qu9qXwEvQdr13QfECPs0ZilRdcR/MSL
bL9qI0bO1KxQ9LiBgBW9Tq5VW4xssD8nbC4R5VuV8Y2qXMRFx9b25VUi2NwZ
oNhd8h3HkpTsHfWi//cdiI5tFOL3AyRD8ADBhtQTD6UThXjv19m08gYEA3rf
NC2chXiVheclCYLgrLen97nBr5hTaRT1sBXBza7qD8dYX7F5FvYyfYVAi8y0
MbECnF/L29fzWtT30TjycZcAy3Yt33OxG8FMp84TXUqA37KSnbi9CJ42/nJk
tIWPk+M8fswbQvBbocrjeVU+Hjs2o6/wEYFEZu7kcTKPXZIMdeo/IWCuVj2Q
yJ7HDRX7NAN5COiu4PkvofM4nfuXcvOcqC+FO3l8NI9h/2WxaCECqVOKd80u
zuFce3r4vRwFJiX6j938P+OdOu6lHYYUcA6sbTR25eHskTXEy4iCdx5pMds3
8vBIlWzflDEFbG5EYoEWD8dAg4qyKQXuEz4v376dwX8E0DFuZhQwNkLHqrAZ
LH97xrX/Rwq+z8aIT+V+wm32V8Q+7KVAkrdgHKj7AaspBenEelDwTfITZ+v0
NPbt3myh4knB/eiRn480TuP5I3Mh5j4U/BRS9Sb60DQ2SvXuPuVPgf/ETfu6
W1M4vsekejGUggDPR9bjDpN48/E2L9VLFLzcg1pO1IzjBc7EtpbLFNwbZPuY
x4/jWjuWeWQyBbb2Wrqm+8exkbaL7ECqyJ9BsH+TxDhmtfTWVmRSUL5b/1uE
1zvM0f6gCCUUVC//XBK4ZAyHPV5CjmPR/e58nZQKLr6u62f4dI6Cw1oO6aWx
b7DVetM1fl8oeOTKM47Y/Aa/2v7Zks+nQKol1ekXiTdYNjJxh6GQApdnXozg
4gAOe3HrZIw4G9yYiiG99H4MibNklTIbUgfq43zv9OLhj/E+KStEfId6Y6Z8
NzZsLs909mKDh6YgL177H5y2usmkq5EN0mUFpnG3b+GfZyVftJvQUPnQKSku
toXxu8NDl1JpiFQeumbS0s0cjXMTOl6lQUw+ycBGksNEuNV2s9JpCK0kHyPt
OcyvcxFX0jJpUOrTux32mMNUbxJ8zcqnoanZK/pUew8jeLT4b1klDYbm4d/d
e/uYtC5WSksbDVn7z9wdUR1kcouPBSW205DX7rxu5cZBpjj8uZ3DExoKNf82
SPEYZO5rpC08eU6DHfcrp/b6INPvqR708jUNT2q2ZF5ZO8QYc7Xthrk0JM3X
KbW6DzPraqP0S0ZpKAlZXWAWPcxYJfQJAt7RINulZd1cOMw4GeffnnhPg1xG
W5jn1DBzMgTpz8zQkFl0gRuQwGVibM4L7s7SYMWymlb6g8skKA6/Cp+jwdmQ
/WKoi8tk1xQn8fk0LLcfMJGhRpiic5KBDxZEenNBZZ4OI0ylS8CWGCENPX5l
Mr2hI0wtu1XP9jsNWOLG64SsEaZx1kiwuEjDlyT9HF88wvwfLD9bzQ==
             "]]}, "Charting`Private`Tag#1"], {}}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PlotRange" -> {{0, 10}, {-6.031104835793332, 5.955397096928312}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[2], 
             Dashing[{Small, Small}], 
             RGBColor[0.5, 0, 0.5]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>]]& )[<|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PlotRange" -> {{0, 10}, {-6.031104835793332, 5.955397096928312}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            AbsoluteThickness[2], 
            Dashing[{Small, Small}], 
            RGBColor[0.5, 0, 0.5]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>],
     ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
      4.503599627370496*^15, -4.503599627370496*^15}}]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[2], 
          Dashing[{Small, Small}], 
          RGBColor[0.5, 0, 0.5]], 
         Line[CompressedData["
1:eJwlyms4FPgCx/Exki5CCWXTsD01ucRSHZfw+8vq4tZTctnWKmKNVqQtpajO
o62ULmwXHEahGLmtnWxkXZYaMyjRZUIGwwwGzYyZESmn85wX3+fz5msaGrMn
nEqhUI587X9mnwmdbxN2xWXB2f/b1GniFWASiThP7bigr849q00yMYmH7qtZ
881fza6/StMwScbfjlE1AV+Ncj5+eIqWgQPdRhOuphno/MS4KaWxsNHg3MVv
1rKg2T1AH6dVIcK+2r1wUxXu8XJiJTQuyq2TV738lQtF+iNzQQoXL3y3Tq0b
4mJbRIuwY5qLrkpaf54/D2PqU37VnTxQC204+o4tsHf2cUy+2Aqd13y/CWob
2stmqfQPL9A29ZCf4tOOszxLD5v9nXC+8sibMduJ0rLk7iirLlDiLffS67ox
umw0xSOkCyYxJI71qRv0OA+X9Te7cLXjNdvPvgd3nRbfE053IZB/Ncqqogdp
3JSf9z3thlGVxfaJgveIE16XbQ96jxXzshIMswTIWdyStNS9D3c/1uczXvfD
xfl00LngPqhu2cS3qvrRE22x+cOJPgyL0tb5rBjAio4rotaiPjASsgOKfxxA
arrXzku6/bCKtfB7LxxA0trn2nPd/aC8/E0cPCNEBF5mjB0V4lCv2P3cVhEo
uarq7itCfDDY5XAzQoT0eat6ePlCfPch9q/2FBGauT+vZr0RQiuWr//0rQjr
987mhjsOouSzSFkQI8Ywg17cqzaEI78ye+sKhnEoLbG2/YYIkSF187ucJKAq
cwV1LBGsmXoHVRESZAY0U8r+EaGIXh/j9bsEvFV6blcVIghn1F0LRyWwKCjk
7AwUw+XsW75N1hjGnnS2/0MbhvFPlNcbFk8geshMyC4dgV+bkdj2uhR9we8W
NHBHsOrs6Snvh1L48i9ZtQ2OILvL/89MjhT2LeL4IaNR5L0NH2yhyKD+x31d
g4ujmIt++ubucRnSE0xdTuyXQM3KUOfvSDkWqdoPJp2SgLI3TeqRLEdizLnk
67cksI3t7TJgyREaKnhV0CIBO+l2WNSIHJY7sn/h241h4IJjwvrDk2jQW5nh
oDuOjmKv6qf/VmDT1eZad4txjIQ3iFj3FXgw/+Tg7m3j+GaMye7hKpAy/cb6
UMI4Zp7HGW3UU8JfcPNZ5vA4NtVnNTxjKTFapKv4VD+BikoNk1qxCotMz9MF
9lKouxoWbquYRrNTqvUZdyny0zwMSgTTuBDItDPeI0WsRc7YxSUzoN54vP3H
X6QIu1HWmntoBjNfxiLeZkth7dvRUmD+CZIev8IXVBksvJybxhpnUfQxtDxa
RwZpOCc4b3oWjOVHHi9ZJcMrnRlPhfVnDHpebvbcLIPihLLyCPMzeqprhzkR
MlwrX7naLOkLWtPpZvWtMoyIPUrc7CjkMnuTzf53MrSvq2ezAyhkR7urw5ch
GWRqXZPXTlJIk2bQTqc5GfaH3Om++IRCauJuRD62keN9as3q1m1q5FRadmyA
ixylhOHNOaRG7EuL4lUeclgJjIddrqsR9lBT8qYwOcy/8/QvfadGSvZOs8pv
y7Fki0eY4BiVRB2ZX7ErT4623bJa7WwqMU/Rq54ok6Osyqm44ymVPGjcwLPk
yuEW4mu6bqU6YdqGjhZ+ksMx32wglKNOrum2mN87MAnOltWh79w1SJWd8SOf
6Ekc3jHocDlRgwwGx2D29CT8yv3NnSs1yJYSvb0BdyZRt9XPmWM+nwzvDEpc
8nwSybbaPj6mmmR5bKnmk+5JJKxWuktDNAnSKWmMkUmYaKVG8vM0yW1R/oPG
eQr8RL+3Jt9iAXFLGn8Rv0WBS47D4we8FpLoIuyj71Rgf3OPbWT6QpL5MnXw
lb8CO/Jbe/VFC4mU9q9p66MKtBDjmVsXFhFmzZlvRYVff2e93NH3iwlX2F78
e6UCIQLttBZ7LaJYtMbOtUmBCG7Ghre3tIjnDxzPLIEClmYnZA3+S8hHpc7x
PQZKHJ2odYhSaZM1xqFzc2uUEB1gib8N1yE+37OTS2yUuLvMy5v3RofcTwtk
LvBWQtFbzmSH6JL2qqL1lfuUKHt10HhPji6Z7ZutOMhQQu9l5pWHvbpkj/U9
Tm2SEo5tW8V9oUvJGf/J3VGpShjVvKaJC5YSVqJ7z8ocJZ5lmGp9mVhKKK0j
0mPVSogb8+40JC0jJQxbIwuZEkFHK9UreXqEf/18Pv+LEtG/narYtWY5mffX
G6sLWioketF1ZWeWk30ap9366Sr8R8dyXAZ9csGyre3aZhUGGi0ziu/rkz98
aYFObip8Pi/pXatjQBbkNkbdCVYh43YCy3bCgGzk6k99H6UCU9MsmIQZkuCa
IN6lkyoco/CzfTsMyX8BBrSFtg==
          "]], 
         Line[CompressedData["
1:eJwVlXk81Pv/xWfVWOfzGWuURKmUJY02t94vXBWRkpArRSIUblyhbvqViCyh
VLIVFSGllC2fj6XScmW/dMm+jSURJjNjvv3+OI/z5/P8c85Z6eZne4JGoVAq
fun/fe/Id29WjQDZjW2c7lihQlaWRl/4UCtABWbmZly2CunTbqV5oFGAjnKP
Yn2pyuQbxUYvF54ADZQFFxrUKpFnuEmyg3MCpPDKt87ziBK54uChZz50IQrs
dUiSX1AkQ6538IOXCZHQaVOL6g5FUrvwbqp4rRB1HmvR0O5XIJv/OQIRRkJ0
eKX4MDNGgdSV7otM2idEcZR1D0oH5cneKzylJxeF6MdaFcnXxRwyLju/jBsr
RKFqDXdV/TikcY2vS/kdIdpH93jnq8Mhb1JmHtQVCdGw1peVOQ9x0uKcgNs/
IESvxgxfOzzHyLk7r9u9vgtR2/6x6cOhGJlVEnZ+SiREcpsl9N+ZYqRoll4r
UhKh/J3bnh0uZJPP/GUOqliIkL9f3f10DTnyU4p8SIG9CIWPTT6vK5Mlh2pV
M0zdRSigvDL0tIMsqbp03dipMBGy/+9a9IdbMmR4lfnlqmIR8my+ERxhKE2m
j1nl2teI0KCfr97Gr1JkiaLd57EGEXpR0x/y6poUOeHlpqY0LkKPo+zilMcl
SXtO2HNvzUX0bzHb6zrJIv1/i+gQ6y+ilqAu5b9DWGS0R6z4xo5FxGD2oH83
sUii7O5ewnERJVc32zzKX0KuPV7SLx+/iPSmWjYmF0iQC8+/y78WLKJMfvzD
oQEGqfCVv81WUoy4zX+573jKIPVYlGPDSmLE2osfDznPII87y+XjhmJ0McOW
EaXMID8x1v/ucVKMrCTMfL0c6GT6IfdAdqsYPcs4tqzjJ5UsCfNJye4TI6oR
acxppJLNuWfIbVNilNDo6zWQQyUZYSBRxKRA0m6jj+ZOVHJr8z7bTg0KNHh7
xmbUUMh753x4Bg4U+Gtz9v51zmLCgJTkRx6hQEIaWaS1QkyQjBxm93EKLC53
U+roWyR6Ygc0Yv0pIFqzK8jj1CKhnnnEYTSKAhZJtPy8SBGRUmtTe6+CAtTH
8XWrOgWEjuRkI7+aAjqP3jRY5gqIUuuYbpv3FLA3tQgQBAmI9ra6BVErBTbN
/1Y/LS8glEZNNjp9o0BVrlYv/+ACkSjLTedoUiGqcnlTOI9PaNo25XmtpUJE
hCxuRfCJZ8n+paQeFQSusbXnb/CJhhUFLb7GVDjXwn8tD3xCzlBb+qMdFSQb
J47z7s4T0fYqwZcjqfCqkM4fcZ8jLmUID/wYpwKsdq+V3/SD2G9Q8uf6GSqo
djSwZjk/CPWqgAS3n1RorIt5ojAzQ5T18RoamDTISD5fLP1ihphe3WFToE6D
JqXm3KqtM4RbfrG1x34aBDWqXM60miZMSn0t2p/TYN32KzKed6YIOUsdL3YZ
DZxamWfyw6aIzi+DV3eRNKgSq0+pekwRwULnuhefaHBzVNPoz01TxFO0d3fC
IA1S3WbjeRnfCI23a8wtlengFJHlNbpikqA090BFKB22xT/M7DowRoSPVt4L
/T86GOMPzZy1xghJShpt21U6lHG3Gy2f5REc3cO1xTfpcPoj+cntDo9YHdm4
u/ApHTxVCieHBkYJS+PqffeH6JCmmb9KN3KESMrKcr5qy4DuoPASxo9BQjvQ
I9hOhwnJGx6ryezvJXS3dx/MMGBCpP1i4HX9XoJLcdTnbWbCTn0u14DdS5jG
WAyFmTHBsVSrnKzvIVyyN9jlOTOhnfT4sdymh0humdanxTNh0qXqsHLuV4Jp
FDZcOMOE8pz3O1t7vhADs7fspV9LwOmijWqHiWbCctD778Q/WSCV9zZXTe0l
sW/g+np1dSnwfNWr6FJAIF6N28W6AmmIeFJsPaLYilYktHvHvZCGMcszGlK2
rcjOZd8hu3JpiG/fOmId14oq+dt0euqk4TqjePWOJW0oURdvme+Xhl1/h256
t9CGjG8Ra9aoysCyvS7pMyPtKMZ72ecrETIQokIRGA12oqotiaV7Y2VgWFeP
F6XdheYYrGz8hgxEdOvbYCe70LGMmeC0ezIguvKl++VYF+K2fNAsrpCB020v
jc7PfkVdO0KCBqZloNFh61BZVA/Sw9uWmx2VBXqGdtTPyj40FDt06eYJWRie
Hwmm9PahNKn54WEfWcjOrdm4ht6PZBgqRTHBsvCfTOWR1t39iDd3eFdbgiwc
/LrFt7KpHz3o7PL1qpWFdOyKheK3AbQsZ5CIXycHUSFqWpm/D6OWVXOr+vTl
oK/u1BMXn2F07Z5ENHezHPSY/77KMnEYLaSsseswlQPTEYn63J5h1B7rNaLp
LAdq/BnvlLARlBQwgb2MkwOeldZiydtRJIVmXTtn5KBpFWbNuTCOgk3Wsl4u
yEHEUcMsh8JxNGT2x5N4KhsmnD63jfSMo+o9VQumbDZIiWorp3+fQKG2sUm5
OmwYCjD5SGKTaOzE6jdBrmyoz9p236jkG3I66eiz/yQbatMMKl5OfkN13tdw
HT82FDmEP/jAmULZft+PdJ1nwxbH/WNbLKeQc8jrObPbbDBcZpF9tHwKfYo5
tBb/zIb2Y+brLj76jrbHX63ntbIhfC33j8U331FOQnlgbScbbMM+vX058B2F
J6+sOstjw3ze4/sdmtNIvWFuwzcaBn4ackXie9OoraP6zSF1DHqUCv3T8mfQ
7gmnec1DGJh/+uSYszCL0hUuN4c5YvC1kP/u8co59MM4r7DzDwzKRI+cWBZz
KDNa4JnshsHH1Ox/v9yeQwtrUtsl/TFIKSLOsnbMo3y3rtKpaAw23FT8KbrN
R7RoZrJ1HAa/HZxMD3rLR47PdM88TsBgfaqPqccPPmJSLui438bA+vqx8aID
P5FLmvrdfx9gML0jPQxxFhDWfvR8JYmB94HwEJMCAfIQRzqq1WKgFhDw07Rf
gCq0n3KD32HwR3XZo/6lQuT1F2ViYz0G+Xu0JuSihKiac+/Ig/8wEHeXbj/p
J0KB1n07Y+YwiE6obLU8KkYfAqXURn9iwMq3Ue7NFCONVMN5cxEGa85Z1tj2
i9E/vEuFYjoOQuPMh6eNKKB9VUsjAMfBa9y1PuLXT7RXu1OdNuBw18Pf3m+W
ClMmX1T/1schERP2JKvRYEmVDTfTEAfde7+17DKlwWZiu+fQVhzu77pzwCqB
BjfKsX/OmONgcbk13mIzHfK3Rwzd3IODR/ipp2xXOtSUCsQle3GgFvLiQmLo
MP1qyFB8AAfuey/rPYN0sHlRcfuaCw5RPDJ5dwYDPDYZFj1xxUGfapSZ+ZkB
F4oefWx0x6H0bFcESWFC/tPERWUfHPYm/Xnc6wQTpApOumefxWF/kss7/lYJ
ePtAweD1dRy+qA+bR8mx4OuqaIueJBxcGO/frdzHgtkssRv9Fg6+oWmbxuNY
sOo+76ZFGg5l1nk7jBUk4VI6KWjNxUEkaezapicFKcs3K/7MxyF3ZSjCQqTg
WWqe3rKnv/KaVB/6XCsFPSnJrm4vceCfeHiV7SoNO2+dejdZjUN80OwRlScy
YK/U14O/xeFSKYP1kykLp286LHDf45CT6Ofe/Gt3UpNMdc99/sUH7fqKpXKw
EK+StKQTh2p7bFtUDhs47Lh8nW4covV3ZW6QxGBdHP2tdR8O7xefnz2BMHCM
meQnjeBQZGm6Z7EQg+KrtS4aszj4mExeOJH1i2P5USWSj4OVycWY+VEcUmSa
miYEOBTY+nDzDDlw8Xr3rnIaBwbky6S6P3AgwHaIoinBgUStRbilKg8eChNl
VyU5cMJsp2fvKXmwur2gZ49x4PRMg+SzpQqAnKijFfIc6LrClwgLVPjVe1aW
ljIHzik/dvZvUgDlTEXl78s5cGkzGve5rQh9jwzE19ZzIJhCyu6zVYZWry2l
03ocoCnWhxZ8VIYn+UuTNPQ5EEhpTzvYpAz/A2Jdj5k=
          "]], 
         Line[CompressedData["
1:eJwVVnk8VIsfHYQa2+jODJm5V8XTpkmijbrfkiReL3o82bcke5Y2ilCJRLIT
UaGFqKRs9+bZRbZshWKyZH1jkLWf3x/nc/4653PO+etssHU3PCNIoVCKV/B/
bl9j5PDhOgJ/j+zkdcrLkpdKObymIAQQC9k6+RYZUrkjcHj5JgKDo87FdjYy
ZLTYtg6TcAQOVyJiX24zSTtP33zxRARCPMPMVwkzyN2qPflbHiCA/q0aapRN
J6k8eHv0IQKqUcXmFiZ0Mve8SEFABgJBujb/rH2LkIse997xXyFQExo6SQlf
S35S4b+TfotAfWDerkGdtWT6pPF7znsE4rBew1er1pK6HuxCRwKBfWnVJllB
0mSse2bR1zoEoJuMV4yhked2UIvnGhDYk2xgt9+CRmpOuBQzmxGQNbbtf6lE
I/vdVEtOdiDwR9Bor7ivFKniVlJazkVAzRR/ojYlQQpx1hPfBxFQceRxy2Il
yLaxQGL5JwIzDdkXrTQlSD/XY+Te/xDQY5/WuhouTta4tHx4sYRALnta4ba2
GJmsvLushkIHKY0LCR9mqaTHaHzZgBAdkAhc6u5zKsl0sfx3PZUOzvsUHfNk
qKSt83B5NJMOCY56on2UNaT6Nv2KvHV0SLP88ulC6Wpy9UhORQObDo5aFmeP
XV1NvnTyrlytQIcazae0a8ui5OK531V+O+jwZ1LUoq6kKPlpi211giodppf1
TnW2ipDpw+XVb9Xp8EfU1YwzySKk7rnQmkkNOgSaVkeYckTIWEdGnf0xOnxB
B/aLWgiTO85ua9C3oYPeVxH7h9+EyJ5z8u7Z9iv5S3+xI3OFyDsuCE3SkQ5d
W2uWta8LkcPnFww+udHBPzrLZlJRiHzkV/fZwI8O9jP8xBJvQVImyrnbOI4O
kMbIS1UVICujra4VJNIhNmDAfURcgPSOOyUvm0KHGP3CyZJBCtmUrGHT+ZgO
O/+O0h1JoZBhmWI/zF7RoUcoJVoWoZC/i5+PWtfTweRB/hXJDctEDpEa/qGR
DlG7FfYKc5cI87L7nI2tdGhr7DMuylwi3lf5evR30SGyc+CG8c4lwqtZj39m
iA5htS2F/fqLxODgyIKTEAOMQvcX+abPE7E/e5PrRBgg4Sfl0ug+TxwZazmg
TGVA4/oLhXkH5ok0XpH/GI0BFyXdJGhf5gizpTAhD4wBHj9cubOsOeLTWmUx
n30MeN7CkQp+M0scdHUdTtJkgJzrYr/TnVkipyqnqgxnQL5/2Ikc+1nirt/O
YNpRBvzWKFPWZs4S+gO7l54bMmAuMS3xztUZovb9oYk+Zwa8j7JMtTebJiqs
/2k5mcIAy3c6d3z1pwi1ovi8i2kMcBE78vXJ9iniMaMrIuUxA9QSzNSoUlNE
cK25/ugzBjjqSXdfbeYRh9VsK24VMEAc85pcMOMRpKhrQWkjAwxTft16c+k/
oignMElZiAkjvUEeTk8nCBF9I7k4ESboTy+yg7wmCIPhTQkCVCZof/g2P31g
ghhUqI9tozGBlj5w/0fLOIEkyEQFYEyoi4NjH4XGCeegFyGt+5jQTrk5X+k5
SrBM2nz8PJhQvj/UpOTmMOEwncUf8GJCXgmHqmg6TORF+XoZXGRC3J680crt
w4RO/frzSteYUCLx26r08xDhddjZpTGMCToWGgbWm4eIOmWKnWImE7K2VHZ1
tQ8QvgJbT37sZoL1a3SLhxmXGDgi1qH0nQmGL/JMWtW5xMmQUavrXCbwWxx0
rGlcQlHqpfvuESZ89iiJHavoJz6y1SIe/mKCtJvbuybVfgLbe7DBG5GB7vAv
DFukjyhzM9RHdWUAKX4w+q2zl6B+vXLM7Y0MJKhW/U7paSd+ZGyITvWThVkX
g2peZzkRvXndqvdG6yDk+3YdP+5TPDLRocpmvRzcad1ifUSzEb94IdDLT0EO
sjL9m7adb8QtDVPk45Tk4OSim9XmjEZcmdp28aOyHEzriqyypTXhNZe1N+/Z
JwdquY1jvT+acMHTirfFDeXAw6qG1ItpwX1k+o4XBMnBF3Zp+9bV7bhptEWD
+KAc3E5vQEwNe3D2ayrL+acc7L4+zfGM7sF7mwrO1ozJQXN5YATR1oPbS60V
uMmXA1NL85RFs17cLbRy128BFnBSyZ4QtW94YMCOhP/YLBDeq7WM6nzHn7oI
2LcZsmCqIUazNrgfdwnLyVUzZkHPk2W87Wk/znlmthR1mgX8bX/mrP7Uj78a
zI/9y5oFsb41kX3ruHixrVNNtSsLjoaT2MU8Lt5o0sIpCmGBpLrzq/ChH/iv
I0/mUktZUF/ZFid7ZQj3K0oNKv/AgvQwsTxq+hBOUU2UGC5ngcKLjfu21w7h
ovIRG1TrWJDIjSCFWcM4c+6Sbnk7C+K+tWnSiWF8V7Z+wtAkC8qcZsu3SI/g
bgz+3p0KbFAIENpDfB/DeWHjZUZKbKjR2p/Go43jPoLD+le2sOG6ADrhDOO4
30S39b872JDVqhu96+E4HlZTFWKkyQbJg8f/2mE3gWddTeq4bMQGrXZV+Rbf
Sbz/x+FLZbfYsEcl4+uACg8/nNqQvjWMDXIn469oneThD01M66PusmEqzPBK
tzsPt6w7v9Euhg1fCn1U6l/y8K7chx+FHrFhRlfULl91Cm/2XV6vXcoGu8+0
e7e0+fhO9VC97A9sWFg2+Mw5x8cjxxkXGBVsuPP74JBCOB8/YbO97kcdG0Y2
9houfubjtUfNfW52rvTbrHz3tvM0XiZdWFPFZ8PFl9vnj2bO4BvqtPk7frHB
xDbruVPjDB4Q3ITFL7DBM6H+X97cDH5wdsjLURCFBN3jI7tPzOKFX2WwNTQU
pCTn75ILs/irTB/P49tQeP52cPCWyxwubSPw4BUHBaWSy6HNyXO4h1x4lZwq
CsYyHZFp9XM4J/wxe2QvChy7nTfaVObxZ54tlWFHURj70BvVvzSPpx/Yyaq3
QaGuv9h7+c0iXnaCGrRgj0Lu95hPCz8X8T6r/p9bHFHwj71yKGbDEq4QGFN4
0w0FuzH1fVmRS/jjyrnT4ItCVq25xZMLy/iTv8riX0ejcJxhKXFVlQKV1kmU
vjgUvi0wDRROUWDgvLcjLQmFEpEkDTVvCihFK+11TUMh/g46m1JAgYyO0Hal
HBT2v2vQ6NISgCybU8zEKhRIA263urcgVHsqX6uuRaGjib/mXbIgDAUJD8zU
o3Bgfly9qUIQNmcU5J9qRWFk2bu6bZ0QPP3JMpL4jsL8/ER/fI0Q1C7wizW4
KGToPHDQnBWCn+INik6DKFjK9wbE/rEKtu4I4FeOoTBjVNUaELwKnnlx7wfM
o5Ddra9ToCcMtcElCzlLKFS5d3yN8xeGnzGxdt0UDIz3JtFM3gjDtnfHdu0X
xWBTVoVdxHoReLH4onkKwaDzbOmru6tEIfuGj/TZ7Rgg9pvvGwisgVFNi8Ab
KhgcGBqvUdReA8r8I1OPdmHgjm8w1Q1dA89s6Z+/7cOAe3pIMFeWCln463jT
oxh4+6hkcnTEYGgmcc1lXQzUT3kcqogVg005gVfi9DE4Jo66ig+JQQbb0LzV
EAPHJIrDQIQ4PJ6blD9hhUFVas6e4BkJ4OZ2RLrYYrDfYGOzsZEkKDiSAmFn
MLBL0smyfisJ6W0R/VXOK/qRHCdXfylIfc3JPHQJg9SmbXdn42jQ48SUtfbF
APv2OMeviQbYxuWQa9cwMOsz7/IXl4bkyHqnomAMmI7R0QdvSUOiqwtH/R4G
9b1iDkH31kKX4t+pp6IxyDow2NDZsRbWfdWgecZhcCfZXOTIRgTij4vxch5g
cNBhgZFfhEC7wJRt/cOV/ZKfHZ8UowPzfVfLyKMVfyNPrSzLlZ+z6Vn+5mcY
ZHfi56niDGjtuaekk43BcbGq97MODKDHXo47k4tByUZEe6icAVGrdC+nv8Vg
YTvvqVcoE3KcR4b5xMq+lI4Hp5pl4H+s/n8q
          "]], 
         Line[CompressedData["
1:eJwVUXs0lekbNe6X414uub3f+UTRjYpfGN9T1EhSSMmtIkNU1JAWSglNIRrG
NZJ7GXQxLcp43xBDF5NqHLfCQYTKEZ2jU35n/njWs/ba69nr2XtTfqGuAeJi
YmInRPPfVh6bP+Qrh2DPpBmvx0CLXDm51zJWhNmdl6d0NbRIcItuYjkLgdK0
VoTtek3iMR1bZa2E4DD/d6OONg2yTYP7qlMZwe4syknhoAZhB92k+WoI/LP3
y37IXUp6FCweOWgjyDZzC72+cQlp3ZAz3r8MQZZSW5sRV53U+giVT+iK8D3V
GtN0dZJW0+SbY4BAjSRl2iyoEQe3XcKJ5Qjq7aL764ZUiUXMXfqsMYLfi0Kc
fApViWHp0h1qKxG0mQ26Nh1UJWJf+nKsViEYm468lzimQupygyyTzBGEvAhf
ZimpQsqan/gabEBgK1lpuaZAmWRMrUm8txFB4KFJszMWyiTMdu5V3/8QWGY2
NB45rkRWDJ8/uYpBkPyuPnG5gEU0FEZzCCCobtrUICxkEckNDo/2bEEQrq6a
QRxZZDBBSeXMVgTnOD6hz4oVSPbKvKpnOxBYJ1370ztYnnye3VZ6YSeCrU2+
S55qy5Ndjbxrm3YhkORYO/I75Ii0m2NyqSsCB6dB053mciQiRhB8Zj+Cj0W9
FuHqsuSfbaV+670QLKw73be7U4asUnXxnPBGIB9kJ5OQLENGSiu2ux9EMFvD
utMhL0NcO/etWB2I4O8/31WSpdKkOkcCcYMQRJWvbtjRJ0XkDtdo5gQjqHum
lDp6Q4oQvrSM1HEEj5+f9jY2lyJr2fdH+8MROEd9azLwlSSsiCXFyXGiPh1C
Bn99I06CGJK7JV6Uz4XJv/h3xEmz3NHf+AkivQqOv3aiOIkqaD5/+BIC2U7b
Ya914mSi7eRBmzQRf/a0dkTyD6R12Qu9qXwEvQdr13QfECPs0ZilRdcR/MSL
bL9qI0bO1KxQ9LiBgBW9Tq5VW4xssD8nbC4R5VuV8Y2qXMRFx9b25VUi2NwZ
oNhd8h3HkpTsHfWi//cdiI5tFOL3AyRD8ADBhtQTD6UThXjv19m08gYEA3rf
NC2chXiVheclCYLgrLen97nBr5hTaRT1sBXBza7qD8dYX7F5FvYyfYVAi8y0
MbECnF/L29fzWtT30TjycZcAy3Yt33OxG8FMp84TXUqA37KSnbi9CJ42/nJk
tIWPk+M8fswbQvBbocrjeVU+Hjs2o6/wEYFEZu7kcTKPXZIMdeo/IWCuVj2Q
yJ7HDRX7NAN5COiu4PkvofM4nfuXcvOcqC+FO3l8NI9h/2WxaCECqVOKd80u
zuFce3r4vRwFJiX6j938P+OdOu6lHYYUcA6sbTR25eHskTXEy4iCdx5pMds3
8vBIlWzflDEFbG5EYoEWD8dAg4qyKQXuEz4v376dwX8E0DFuZhQwNkLHqrAZ
LH97xrX/Rwq+z8aIT+V+wm32V8Q+7KVAkrdgHKj7AaspBenEelDwTfITZ+v0
NPbt3myh4knB/eiRn480TuP5I3Mh5j4U/BRS9Sb60DQ2SvXuPuVPgf/ETfu6
W1M4vsekejGUggDPR9bjDpN48/E2L9VLFLzcg1pO1IzjBc7EtpbLFNwbZPuY
x4/jWjuWeWQyBbb2Wrqm+8exkbaL7ECqyJ9BsH+TxDhmtfTWVmRSUL5b/1uE
1zvM0f6gCCUUVC//XBK4ZAyHPV5CjmPR/e58nZQKLr6u62f4dI6Cw1oO6aWx
b7DVetM1fl8oeOTKM47Y/Aa/2v7Zks+nQKol1ekXiTdYNjJxh6GQApdnXozg
4gAOe3HrZIw4G9yYiiG99H4MibNklTIbUgfq43zv9OLhj/E+KStEfId6Y6Z8
NzZsLs909mKDh6YgL177H5y2usmkq5EN0mUFpnG3b+GfZyVftJvQUPnQKSku
toXxu8NDl1JpiFQeumbS0s0cjXMTOl6lQUw+ycBGksNEuNV2s9JpCK0kHyPt
OcyvcxFX0jJpUOrTux32mMNUbxJ8zcqnoanZK/pUew8jeLT4b1klDYbm4d/d
e/uYtC5WSksbDVn7z9wdUR1kcouPBSW205DX7rxu5cZBpjj8uZ3DExoKNf82
SPEYZO5rpC08eU6DHfcrp/b6INPvqR708jUNT2q2ZF5ZO8QYc7Xthrk0JM3X
KbW6DzPraqP0S0ZpKAlZXWAWPcxYJfQJAt7RINulZd1cOMw4GeffnnhPg1xG
W5jn1DBzMgTpz8zQkFl0gRuQwGVibM4L7s7SYMWymlb6g8skKA6/Cp+jwdmQ
/WKoi8tk1xQn8fk0LLcfMJGhRpiic5KBDxZEenNBZZ4OI0ylS8CWGCENPX5l
Mr2hI0wtu1XP9jsNWOLG64SsEaZx1kiwuEjDlyT9HF88wvwfLD9bzQ==
          "]]}, "Charting`Private`Tag#1"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PlotRange" -> {{0, 10}, {-6.031104835793332, 5.955397096928312}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[2], 
          Dashing[{Small, Small}], 
          RGBColor[0.5, 0, 0.5]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {-6.031104835793332, 5.955397096928312}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.903625055978447*^9, 3.903625419074786*^9, 3.903625658784202*^9, 
   3.903628097648364*^9, 3.903634840050982*^9, 3.903635364717375*^9, 
   3.903636140717495*^9, 3.9036371318530893`*^9, {3.903640259513514*^9, 
   3.90364030723322*^9}, 3.9036405067185183`*^9, 3.903709526566348*^9, 
   3.9037097182552238`*^9, 3.903709803842613*^9, 3.903710841578992*^9, 
   3.9037113083622837`*^9, 3.903711749181316*^9, 3.903712059568583*^9, 
   3.903964043458544*^9, 3.903964346872147*^9, 3.9040478870171843`*^9, 
   3.90405159981238*^9, 3.904054807655143*^9, 3.9040625329617023`*^9, 
   3.904072645641487*^9, 3.904073359759243*^9, 3.904073401895831*^9, 
   3.9040741038374243`*^9, 3.904078119935871*^9, 3.904254025048755*^9, 
   3.9042562552512617`*^9, 3.9043299347646027`*^9, 3.904332011561741*^9, 
   3.9043320973390512`*^9, 3.904333935664637*^9, 3.904409688100369*^9, 
   3.90441138677198*^9, 3.904416781042516*^9, 3.904417140079344*^9, 
   3.906475988998378*^9, 3.906578657212656*^9, 3.906581714930462*^9, 
   3.906582496514415*^9, 3.906582838173804*^9, 3.908995629450249*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"e630bda0-503d-4cb6-ba11-c5c171f78203"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"E", "^", "x"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", "Blue", "}"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<\!\(\*SuperscriptBox[\(e\), \(x\)]\)\>\""}], 
   ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x-axis\>\"", ",", "\"\<y-axis\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.903625347040999*^9, 3.903625400869136*^9}, {
  3.903625579020973*^9, 3.903625581138371*^9}, {3.906478301504007*^9, 
  3.9064783054711123`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"b3281982-cffe-47b7-91ed-536eb2cf2a39"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0, 0, 1], AbsoluteThickness[2], Opacity[1.], 
         LineBox[CompressedData["
1:eJwV1nc41Q8bBnAj0rH3ds6hzBPZinxvMyTqhAYpEkVEkohkZUciJLOMEqmo
RDKTjJSSpElC+iF7v71/PddzPf/ez319qM6n6MeYGBgY9BgZGP4/sy44s6q6
xOl7OL/UYmCYIJq6KZb7KCeIVd5M8VSOCWLtRW04hRJA1Pgo/1QXnSCy6hLI
LJQYwuJXtUmi2gRxcruf5xw5gzjT0ypce2yC6F46njJBvk28qXz5H1PnBLH+
0w+5P+QqooezmOZcOEnkvcrx+U1uJZJUK67Sz00R0+mVil/jW4m4Xym6Y9FT
hKlb28DbhVYCCjWklIwpYox5zvZp9yuCLWizNVf1FKGz3WpbTFQ7MX57fXPZ
6hTRdW+ZSW78NbFWpqN4J3qaCHlFs1A93E0w6ldpDRTNEGX3Yj6dVO4jtqTX
FZsIzROjfKPxFk59xOZZV4nTCvOE3FkLffmUPuKcumF3qd48kavHnjew0Ec0
NG7V3Xt0nkhujXc92PyJ8G56ZrHv/jxxdiBxcofDZ4JjuVHPevcCkcPeFs5r
8o0QLrkste/6IuFGvMkYOz1AnHSVCCxzWiEY8meffoobIFQk87bdOLdCpK+T
6H9169/doflrZuIK8bLVVep2zwAR0fWG+82zFULeZjn/2LZBwlj+VpKA+Cox
fFzu7hfGn0Rf7INLHB9XCffk4NqupCHioddl7quqDPD6qTBQUTZC3OkLuHbn
IyO+OX5kq28dIXY7Kru1DDNib2+0csfgCOEpsI95co4ROm2/An6KjRKlhc6t
7kJMYL5fwCMUNUo4XZl+trCXCelBVH3/w78JIyeR6ctvmFDPL5qxlecPcYBw
+vqzhxkkaoTcV51/OSCnhXzjYMVLvSsqF0wmCE8eQVVLKVZc2p+tLUn/t7ON
FTSrsIIp6ckOe48JwpyVxvKDzorF1TG3D1kTBPlKVHt9Bit+99sWv2aaJBKb
36vIKa5He7qcQl37JPHwTNfNXls2XOZpU8w7MkVIbXQ7cOoTCVXakpVWXlPE
xy0tjV5/SRh0PEUsn58ipLujvoZuYIduKb/NvrQpgnP6rteANjuGzR2COTun
CJtatKSmssMo/M/rAN1pokT+5KkXNhyYn+H2owvNEHXVleLdPzjh/MnmOXP7
LOGx/W/Eu1wekDK/e/p8nCVeXo1jf13GgwcHvSS+Ds0SAaq+9Pc1PGDuiwp4
yjhHsNlXmbF85MGt3qfqPtpzxHLByz9TvLwYek8p/pI/R7i87RgVuMQL966x
pKqAeeKgqM9iqT8ffJojnE/JLRJhZ2MoN8IEIDVoyjqrvkhYrvDMlycLoI1p
w50gLBKctCCPt/kC2ISEyZgDi8Tq66Rduo0C+Pg09eKtuEVif4OnYOE6QRiU
F2Z/HF8k6N6Xw4djBMGb+bLP6MkS4bu4e/F4thDue3PsFTFfISSPkvMqJkXQ
fp0/oNRuhaigxcaMsopiqEksx9BlhSgfp5xXkxCFmKjC75MhK4Rfg/bjeVNR
RNSbhNdXrhBdM3eNjmSJwo4v5KG79CqhmExzvL1LDIsPJ/mfLa0SHDMz36/W
iCPvvMfoln0MUD0ikhL4QQpb6jbMRx1iQEz+5+CZcSnUrStm+XqUAWa5Q+/D
2cj4ljBISfBmwHXWUK5PW8mQyj20bySGAZsqHtr4ZZFxvcm6Ka+GAWrM9EB1
DQqSOTWy+aQZoekZE/eBlYqwnOU902OMcCrVtqlvl8buLU98lKYY4bHsJen8
SRpS9b5XnBcYUTDla8Y1Ko2nP0a7uliYwJhz8Ff0ehn83fTRulSKCVz2ZoZs
RjJwvlu5y3U3E3p75nZr18jAoMrLvPchE7Qrb51Ie7wRDN3fUBPIjCCX3Mig
d7KIGKnNCwxlBqNFs2XjL1lsYMhi2hrNDB9K6kGxJVnwbT7QVJnKDPH7W0MX
qHLYFPVmx71yZpxo078Q7C0HC90Gq/whZoTShM8X88jj6s2bDtH0dbjH4ik4
fkgBsmdcz9kosiCiIDIqXoWGzdu+7s3ZwoJQ/R3FdSY0aDDsVxnVYsFCZ5Mp
qwMNhvHmQyFGLLi9TULjRTQNjrdoNiUOLJh9+MRGbICGa+/+qjAlsoBG5M6Q
MzeDRTPk170pFghdtTFkEVXB4EyaHfszVnwt6LGul1NFvoG67+dGVsyyVo+7
aanicEJn4r1XrEja84hP3EQVfRtZWvf2siK88glHkbMq3uw9rXtjihVj046r
dtmqqL1vSdn87893fqE4U0TUkObJOGqVth7aNavuRYLqsPjpHpzswwY+6Y1d
IrqaMA2WuWt8jg1j/Vd8f1pqwlCwv2/2AhvUVBWY6x01sc1kl459PBucWUZF
CsI0oVigMiVTxAYfg7QQ6TZNsB+bPl7Zz4aM/MyjK45aaB8MtundsQF1pqPc
icnasBpMUpKSIuEi63dHGdo2tCsNvnPYSMKduNdnMrANO321L2QqktC9vSuG
bLsNZkxfukS0Sbj6QXjA/sI2GFKUzvLvJuFjN/3htTfboOnQXMcWRoKH1OVx
8nldSLxbsJ36ScKy1x3e/j49jDY6X3xZyg7pG7w6c68JkK/0ul+uYMcb2nLu
5CgBG0crW5tqdlzUOO7HyAzUzm9V/PaSHfvnvLU1pYDkzbzv5gbY4Ty/XCpn
C+imPZeTE+OAv3kep0EzEO8u8TryEgd+jxOZ8WUGUObtkTQ6zImEiwsq/UVG
GEoYCks9xok4t6o77o+NkEWa+/XLgxNZnB5+LC1G4Fgn8iD+HCfkGwuoR4aM
MDp7wLTnCiduGW0dvrPJGAX9n71ONHHivHLI5+xCY0gU/3yeqMAFwb3fo3Y8
MAGJmHHqn+KC67ntDBN/d+CcgTzbo0UuGEamJgSuN8OQkX1ZIiM3jEO2VQlJ
mKHBrH7RkJsb14xH5SJMzBBIT7h6W5EbZjfUODUzzPD72Kbms07c8PAW8Fs2
Mkd7vK0872tu1O6hHU8qssCOPwfnpG3/9fDVOG3vO7uQLRDeHbKfB1MLW3Q9
GndhWrfkXr89DxqLP+04378LubFLbtecebB3UqGxj8sKi3I3ejd48yD9qbVm
xhkr3HX+XDURy4MNk3E9MsbW4Ok9HFRbx4NQ47qe+YDd6G1wYTxI48VYOmfN
/l10TBj0iQWr8CIwc9fiE3s61tdba+Sq8eLtH6vwje50aD3f5jakwwuRFaEM
ySg6Uqp5Ok6b8KIjqLMjvZ4O64qa9DhHXiz1JhlV6+zFiwKBLc+SeLF2ulJ4
UsUGldFNjpQZXpyOZL6pb2yHYos2kah5Xkivdj3R3GeH6xxv3/5Z4kVBUd+M
nrsdLiZ9Na1m4oNc9SOJoCQ7WKYvKtvx8OFB4v282s92+FG0ZS1OiQ92RqVd
R87vA1fLjZw5Jz6U+IeEXGjcD1cWv2+dnXwgt0tHesXaQ4zc+mHpDR+EE4bz
bHLt0akj+Vr+PR/cGw7IWz6yh9bJ5mdhn/ggE1Fy+9QPe7B2C2ZqDfPB647P
ulhdBxTkPrLNZuQHdXnnaZFJBwzqzr/y1OAHRYBuyOjuiKOnz1dyXOdHdWYn
SaHtCLTUvlQqZPHjRnuOEXqPgPQXj0xz+UHf/azc6ecRlPuwPr5YyA+1qood
jWtHsOx95cn0A37U6rw3Y9J0wrVTRdX9bfywuxZQdjbPCa0nu+vvrvDjaKE2
h2+YM1TclDotnQRQeIO0IdfVBV9OkE+VuggguKVO4ru/C+JP8vNwHRfAPiX9
l1tiXDDis7TntZcAtu6eE14uccHNoLb3e4IEoHAidtborwuEkz0+26UJQNpX
oeJm6DGs1ZSMHekQgM+kYvRKiSte89HY/bYKwtLiiC6f2gnoe3qOZOoJYtVa
xGfa5ATKWspaGghBSBD9+4YOnMDlINUIHlNBFCmJuS+EnoDlkNZKCV0QAj5X
Vz+/PYFXVQbjPzwEAT3qZIm/O5qP7OvenS2Imvp8+8oOD1SXhWXSmIVwQUSw
yLfMC6yWtmJprEK4pTcZ/+ClF/aMyGUwkoQgG7VnaP2AF37JdFzr4RHCHtNQ
zAqfAn+GcPJFKSE0R3qUD4Sdgkf43eh3W4UQEt64J0bZG+L7e/yCvIVwQNyl
tpDXB+cZFXe3fxaCroq48u+V0xgyZu+V/S6EvvwAmS+cvtgdPXY4dFAINzkL
gr9I+mIj971TWr+FcGa9e8J6fV+0S2gk5s4LQXN2ct/yBV9I6eh3nuEXhnzG
lfxA5jNo8KJbSpoLg3V50l5C2A+k/kAzrwphfE8K1y728IeW/23OxMfCyDNP
ZWC44A8nvt63954KYyTFSc41yR9PzDQPTdYJI9RAo/pQpT9cK8d9znQIwy1y
QWdpzR/1l10yA4eEUWNESllIO/evr6z+uyQigrfpQl9suwPws5CakhMkgrt3
Q3z1AoMwFvF9gfmiCFjWIjd5Jgfhr3Pe4ePhIvjUO370wT+pMZCpSqqxImit
6mwL/BQEsTRKQ0PaP2c5SWmw6AdjdxR54ucDEdjbRyxxr7+AGjdJS9qICFaG
N6sE3w5BirzouipbUXDIfwuczgiFg6Ns0cB+UdA1cwRHikKxMUXdgstBFFab
puuGK0NRsbYr6aizKNxJF05ueBuKdz1hElynRMGr7Mn1hhQG/sgxjaPRohg2
e2AdeiEMyd+fH+OsFkXA15auAq9wJF13bXGiiOEtd3qK8JlI+J8N8w2S+ec4
qrdSU0QkHOnZ5DRZMQSYjz8OTo0EjdTj304Tw8nfGn3CjyPRGmAir71VDN+q
uw+PLEaC6cDGGA66GKIZhU6QIi/BT/iHxeNwMcy8SxlJuBmFgymHOjl+iWHo
0XAfI0csJB6SxD1GxZD+Pl5+kRqLr28eu7X+EQPzS7nVdTqxcOHmY7w0LQbP
de9D6C6x8Ip9ob7GKI7HuTOpnc9iEXZRJWNSQhyaZ04zHDgTh9snGV166P/c
Wd+srjARj3njgoWcWnGMMJWf1uNPQlB1TnhTvTgSGyXv/SAngUHtOudIkzh4
2ku/JtOSsJ6cSFVrE8cN40Q9XtMkCC2cM2/6IA7xeaWGSwFJUC+1zBieEAfL
1Mic/Y8keAlO66jKSEBMIFhjuPoKBn4anmuIkoDa9+v9rklXYZjTma8YJ4Gq
zZO1wnlXkbv/YEfyZQlw0W9/6bl/FY5tPtJHUyUQlPed9WL3VfSV57Yz35SA
qorinhDhFLw9v0oxqZUAS4xdgV5+Chp4n7a2TEvA+BbdgL0xFfnbVcU7nCSh
1PG3YFAjHQ1WpPAlF0mo0zi7aGbp+HF4YFThuCQsDgnYRdinQyYs9eklL0m0
/vlR6BSWjlsvFg7gvCTIBucqerrSUWDdkP4wRRI0gwK3Su8MFDvtFbreIomD
Ikkh2TXXURrpx+u2+R9E/tPazxGdhTG9Q2GRW6RwMHNQXCInC7Rp46mb6lLQ
eDT6ffujLNxxFnj/basUFA5Zlj4ezEIx8TD9oKkUGLwHOiINs3FrYYJsdVgK
Tn+7atMZc3Dd86Sy5hUp/L6mvLRmmoso26M7mWekILwgGZc2mYd8636HY/NS
SCz9I9TGkI8ac1uvliUpFP+ODmfnycff7TuuxDGRoc/6WvGhcj4cZJU+8POQ
MU5y+Jl9Mh9qc3+dNyqRIeZl2TI5mo8v6WGBJk5kfDQ9LP5+8iY0+/NuR3WQ
sVrTm6eqVAge5ePz97rI2Gl30faJXiHGQpR39HaTwS9uOGhpVYhbMtWD8n1k
MP76U5vjUwgBj3fkV0NkZKM+68+TQiwGMe9kZaBgl8lsk7pFET6ya9WbiVJQ
3iVyt8q/GOkKmaUdOym4lRE/Yc5Ygukp04LwXRQsM/he8BQpgXXt3xtbrSkY
3/D56y2VErDutYgvoFNgLqzvZO1YAr+gBffgAxQ0p53ZnlpTAvrrffKb3Siw
HZW9NBV0Fxx+AjfjwygwNohuPMtZhpC6hPSdVRT8LiV5fHhSjtHPdSkLTylo
y/Q9NfyiHHZLU0lFNRSstjCbs7wvB03rYAxzHQUihadvOk+Wo7dENrD6BQVN
PlZcpYr3oZb23F7pHQV7V+azYnLuY8hzUop9nAKjkK7zd5IfYJe4bcGrjVQI
VwxHjudWIH1Quc5eloprsfnLUvcrMFjK9mlMjor9Ewdl7esrEIQaHm4lKnpx
5+nC9wrcPSYTtFeVCpPl0rUumUqQyifp/dupSOLJ7p+4XYkW48sM/9lRERp6
MUW/7hEMvFrseWOomDVz4vcVrsJi74hpUywVASPDMe20KlQYcaj5x1PhueGV
oo5hFWRF97B9TqSiTDpAwdSzChxNfRXF16jYsjGpU7+pCr2i//3DLxWv/rsc
Xu73FN7NAnVez6lYa19uYP1VjRwJ543tM1R0kw4EaK1/jm3qSsrOc1ToF9Yl
fCI/xzvzae35eSoKmS00U3Seg83/0s6Ny1R8VF07D/fn8H5z53QQkzScdtpm
X+p8DlyaqqNxS2M4zzXGY1cdfoxHHEqQl0b1lScSwdR6CIW+6Yq0lsZ4gOwp
l4sN+B9fL9Vx
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
      Slot["HighlightElements"], 
      Slot["LayoutOptions"], 
      Slot["Meta"], 
      Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             AbsoluteThickness[2], 
             RGBColor[0, 0, 1]], 
            Line[CompressedData["
1:eJwV1nc41Q8bBnAj0rH3ds6hzBPZinxvMyTqhAYpEkVEkohkZUciJLOMEqmo
RDKTjJSSpElC+iF7v71/PddzPf/ez319qM6n6MeYGBgY9BgZGP4/sy44s6q6
xOl7OL/UYmCYIJq6KZb7KCeIVd5M8VSOCWLtRW04hRJA1Pgo/1QXnSCy6hLI
LJQYwuJXtUmi2gRxcruf5xw5gzjT0ypce2yC6F46njJBvk28qXz5H1PnBLH+
0w+5P+QqooezmOZcOEnkvcrx+U1uJZJUK67Sz00R0+mVil/jW4m4Xym6Y9FT
hKlb28DbhVYCCjWklIwpYox5zvZp9yuCLWizNVf1FKGz3WpbTFQ7MX57fXPZ
6hTRdW+ZSW78NbFWpqN4J3qaCHlFs1A93E0w6ldpDRTNEGX3Yj6dVO4jtqTX
FZsIzROjfKPxFk59xOZZV4nTCvOE3FkLffmUPuKcumF3qd48kavHnjew0Ec0
NG7V3Xt0nkhujXc92PyJ8G56ZrHv/jxxdiBxcofDZ4JjuVHPevcCkcPeFs5r
8o0QLrkste/6IuFGvMkYOz1AnHSVCCxzWiEY8meffoobIFQk87bdOLdCpK+T
6H9169/doflrZuIK8bLVVep2zwAR0fWG+82zFULeZjn/2LZBwlj+VpKA+Cox
fFzu7hfGn0Rf7INLHB9XCffk4NqupCHioddl7quqDPD6qTBQUTZC3OkLuHbn
IyO+OX5kq28dIXY7Kru1DDNib2+0csfgCOEpsI95co4ROm2/An6KjRKlhc6t
7kJMYL5fwCMUNUo4XZl+trCXCelBVH3/w78JIyeR6ctvmFDPL5qxlecPcYBw
+vqzhxkkaoTcV51/OSCnhXzjYMVLvSsqF0wmCE8eQVVLKVZc2p+tLUn/t7ON
FTSrsIIp6ckOe48JwpyVxvKDzorF1TG3D1kTBPlKVHt9Bit+99sWv2aaJBKb
36vIKa5He7qcQl37JPHwTNfNXls2XOZpU8w7MkVIbXQ7cOoTCVXakpVWXlPE
xy0tjV5/SRh0PEUsn58ipLujvoZuYIduKb/NvrQpgnP6rteANjuGzR2COTun
CJtatKSmssMo/M/rAN1pokT+5KkXNhyYn+H2owvNEHXVleLdPzjh/MnmOXP7
LOGx/W/Eu1wekDK/e/p8nCVeXo1jf13GgwcHvSS+Ds0SAaq+9Pc1PGDuiwp4
yjhHsNlXmbF85MGt3qfqPtpzxHLByz9TvLwYek8p/pI/R7i87RgVuMQL966x
pKqAeeKgqM9iqT8ffJojnE/JLRJhZ2MoN8IEIDVoyjqrvkhYrvDMlycLoI1p
w50gLBKctCCPt/kC2ISEyZgDi8Tq66Rduo0C+Pg09eKtuEVif4OnYOE6QRiU
F2Z/HF8k6N6Xw4djBMGb+bLP6MkS4bu4e/F4thDue3PsFTFfISSPkvMqJkXQ
fp0/oNRuhaigxcaMsopiqEksx9BlhSgfp5xXkxCFmKjC75MhK4Rfg/bjeVNR
RNSbhNdXrhBdM3eNjmSJwo4v5KG79CqhmExzvL1LDIsPJ/mfLa0SHDMz36/W
iCPvvMfoln0MUD0ikhL4QQpb6jbMRx1iQEz+5+CZcSnUrStm+XqUAWa5Q+/D
2cj4ljBISfBmwHXWUK5PW8mQyj20bySGAZsqHtr4ZZFxvcm6Ka+GAWrM9EB1
DQqSOTWy+aQZoekZE/eBlYqwnOU902OMcCrVtqlvl8buLU98lKYY4bHsJen8
SRpS9b5XnBcYUTDla8Y1Ko2nP0a7uliYwJhz8Ff0ehn83fTRulSKCVz2ZoZs
RjJwvlu5y3U3E3p75nZr18jAoMrLvPchE7Qrb51Ie7wRDN3fUBPIjCCX3Mig
d7KIGKnNCwxlBqNFs2XjL1lsYMhi2hrNDB9K6kGxJVnwbT7QVJnKDPH7W0MX
qHLYFPVmx71yZpxo078Q7C0HC90Gq/whZoTShM8X88jj6s2bDtH0dbjH4ik4
fkgBsmdcz9kosiCiIDIqXoWGzdu+7s3ZwoJQ/R3FdSY0aDDsVxnVYsFCZ5Mp
qwMNhvHmQyFGLLi9TULjRTQNjrdoNiUOLJh9+MRGbICGa+/+qjAlsoBG5M6Q
MzeDRTPk170pFghdtTFkEVXB4EyaHfszVnwt6LGul1NFvoG67+dGVsyyVo+7
aanicEJn4r1XrEja84hP3EQVfRtZWvf2siK88glHkbMq3uw9rXtjihVj046r
dtmqqL1vSdn87893fqE4U0TUkObJOGqVth7aNavuRYLqsPjpHpzswwY+6Y1d
IrqaMA2WuWt8jg1j/Vd8f1pqwlCwv2/2AhvUVBWY6x01sc1kl459PBucWUZF
CsI0oVigMiVTxAYfg7QQ6TZNsB+bPl7Zz4aM/MyjK45aaB8MtundsQF1pqPc
icnasBpMUpKSIuEi63dHGdo2tCsNvnPYSMKduNdnMrANO321L2QqktC9vSuG
bLsNZkxfukS0Sbj6QXjA/sI2GFKUzvLvJuFjN/3htTfboOnQXMcWRoKH1OVx
8nldSLxbsJ36ScKy1x3e/j49jDY6X3xZyg7pG7w6c68JkK/0ul+uYMcb2nLu
5CgBG0crW5tqdlzUOO7HyAzUzm9V/PaSHfvnvLU1pYDkzbzv5gbY4Ty/XCpn
C+imPZeTE+OAv3kep0EzEO8u8TryEgd+jxOZ8WUGUObtkTQ6zImEiwsq/UVG
GEoYCks9xok4t6o77o+NkEWa+/XLgxNZnB5+LC1G4Fgn8iD+HCfkGwuoR4aM
MDp7wLTnCiduGW0dvrPJGAX9n71ONHHivHLI5+xCY0gU/3yeqMAFwb3fo3Y8
MAGJmHHqn+KC67ntDBN/d+CcgTzbo0UuGEamJgSuN8OQkX1ZIiM3jEO2VQlJ
mKHBrH7RkJsb14xH5SJMzBBIT7h6W5EbZjfUODUzzPD72Kbms07c8PAW8Fs2
Mkd7vK0872tu1O6hHU8qssCOPwfnpG3/9fDVOG3vO7uQLRDeHbKfB1MLW3Q9
GndhWrfkXr89DxqLP+04378LubFLbtecebB3UqGxj8sKi3I3ejd48yD9qbVm
xhkr3HX+XDURy4MNk3E9MsbW4Ok9HFRbx4NQ47qe+YDd6G1wYTxI48VYOmfN
/l10TBj0iQWr8CIwc9fiE3s61tdba+Sq8eLtH6vwje50aD3f5jakwwuRFaEM
ySg6Uqp5Ok6b8KIjqLMjvZ4O64qa9DhHXiz1JhlV6+zFiwKBLc+SeLF2ulJ4
UsUGldFNjpQZXpyOZL6pb2yHYos2kah5Xkivdj3R3GeH6xxv3/5Z4kVBUd+M
nrsdLiZ9Na1m4oNc9SOJoCQ7WKYvKtvx8OFB4v282s92+FG0ZS1OiQ92RqVd
R87vA1fLjZw5Jz6U+IeEXGjcD1cWv2+dnXwgt0tHesXaQ4zc+mHpDR+EE4bz
bHLt0akj+Vr+PR/cGw7IWz6yh9bJ5mdhn/ggE1Fy+9QPe7B2C2ZqDfPB647P
ulhdBxTkPrLNZuQHdXnnaZFJBwzqzr/y1OAHRYBuyOjuiKOnz1dyXOdHdWYn
SaHtCLTUvlQqZPHjRnuOEXqPgPQXj0xz+UHf/azc6ecRlPuwPr5YyA+1qood
jWtHsOx95cn0A37U6rw3Y9J0wrVTRdX9bfywuxZQdjbPCa0nu+vvrvDjaKE2
h2+YM1TclDotnQRQeIO0IdfVBV9OkE+VuggguKVO4ru/C+JP8vNwHRfAPiX9
l1tiXDDis7TntZcAtu6eE14uccHNoLb3e4IEoHAidtborwuEkz0+26UJQNpX
oeJm6DGs1ZSMHekQgM+kYvRKiSte89HY/bYKwtLiiC6f2gnoe3qOZOoJYtVa
xGfa5ATKWspaGghBSBD9+4YOnMDlINUIHlNBFCmJuS+EnoDlkNZKCV0QAj5X
Vz+/PYFXVQbjPzwEAT3qZIm/O5qP7OvenS2Imvp8+8oOD1SXhWXSmIVwQUSw
yLfMC6yWtmJprEK4pTcZ/+ClF/aMyGUwkoQgG7VnaP2AF37JdFzr4RHCHtNQ
zAqfAn+GcPJFKSE0R3qUD4Sdgkf43eh3W4UQEt64J0bZG+L7e/yCvIVwQNyl
tpDXB+cZFXe3fxaCroq48u+V0xgyZu+V/S6EvvwAmS+cvtgdPXY4dFAINzkL
gr9I+mIj971TWr+FcGa9e8J6fV+0S2gk5s4LQXN2ct/yBV9I6eh3nuEXhnzG
lfxA5jNo8KJbSpoLg3V50l5C2A+k/kAzrwphfE8K1y728IeW/23OxMfCyDNP
ZWC44A8nvt63954KYyTFSc41yR9PzDQPTdYJI9RAo/pQpT9cK8d9znQIwy1y
QWdpzR/1l10yA4eEUWNESllIO/evr6z+uyQigrfpQl9suwPws5CakhMkgrt3
Q3z1AoMwFvF9gfmiCFjWIjd5Jgfhr3Pe4ePhIvjUO370wT+pMZCpSqqxImit
6mwL/BQEsTRKQ0PaP2c5SWmw6AdjdxR54ucDEdjbRyxxr7+AGjdJS9qICFaG
N6sE3w5BirzouipbUXDIfwuczgiFg6Ns0cB+UdA1cwRHikKxMUXdgstBFFab
puuGK0NRsbYr6aizKNxJF05ueBuKdz1hElynRMGr7Mn1hhQG/sgxjaPRohg2
e2AdeiEMyd+fH+OsFkXA15auAq9wJF13bXGiiOEtd3qK8JlI+J8N8w2S+ec4
qrdSU0QkHOnZ5DRZMQSYjz8OTo0EjdTj304Tw8nfGn3CjyPRGmAir71VDN+q
uw+PLEaC6cDGGA66GKIZhU6QIi/BT/iHxeNwMcy8SxlJuBmFgymHOjl+iWHo
0XAfI0csJB6SxD1GxZD+Pl5+kRqLr28eu7X+EQPzS7nVdTqxcOHmY7w0LQbP
de9D6C6x8Ip9ob7GKI7HuTOpnc9iEXZRJWNSQhyaZ04zHDgTh9snGV166P/c
Wd+srjARj3njgoWcWnGMMJWf1uNPQlB1TnhTvTgSGyXv/SAngUHtOudIkzh4
2ku/JtOSsJ6cSFVrE8cN40Q9XtMkCC2cM2/6IA7xeaWGSwFJUC+1zBieEAfL
1Mic/Y8keAlO66jKSEBMIFhjuPoKBn4anmuIkoDa9+v9rklXYZjTma8YJ4Gq
zZO1wnlXkbv/YEfyZQlw0W9/6bl/FY5tPtJHUyUQlPed9WL3VfSV57Yz35SA
qorinhDhFLw9v0oxqZUAS4xdgV5+Chp4n7a2TEvA+BbdgL0xFfnbVcU7nCSh
1PG3YFAjHQ1WpPAlF0mo0zi7aGbp+HF4YFThuCQsDgnYRdinQyYs9eklL0m0
/vlR6BSWjlsvFg7gvCTIBucqerrSUWDdkP4wRRI0gwK3Su8MFDvtFbreIomD
Ikkh2TXXURrpx+u2+R9E/tPazxGdhTG9Q2GRW6RwMHNQXCInC7Rp46mb6lLQ
eDT6ffujLNxxFnj/basUFA5Zlj4ezEIx8TD9oKkUGLwHOiINs3FrYYJsdVgK
Tn+7atMZc3Dd86Sy5hUp/L6mvLRmmoso26M7mWekILwgGZc2mYd8636HY/NS
SCz9I9TGkI8ac1uvliUpFP+ODmfnycff7TuuxDGRoc/6WvGhcj4cZJU+8POQ
MU5y+Jl9Mh9qc3+dNyqRIeZl2TI5mo8v6WGBJk5kfDQ9LP5+8iY0+/NuR3WQ
sVrTm6eqVAge5ePz97rI2Gl30faJXiHGQpR39HaTwS9uOGhpVYhbMtWD8n1k
MP76U5vjUwgBj3fkV0NkZKM+68+TQiwGMe9kZaBgl8lsk7pFET6ya9WbiVJQ
3iVyt8q/GOkKmaUdOym4lRE/Yc5Ygukp04LwXRQsM/he8BQpgXXt3xtbrSkY
3/D56y2VErDutYgvoFNgLqzvZO1YAr+gBffgAxQ0p53ZnlpTAvrrffKb3Siw
HZW9NBV0Fxx+AjfjwygwNohuPMtZhpC6hPSdVRT8LiV5fHhSjtHPdSkLTylo
y/Q9NfyiHHZLU0lFNRSstjCbs7wvB03rYAxzHQUihadvOk+Wo7dENrD6BQVN
PlZcpYr3oZb23F7pHQV7V+azYnLuY8hzUop9nAKjkK7zd5IfYJe4bcGrjVQI
VwxHjudWIH1Quc5eloprsfnLUvcrMFjK9mlMjor9Ewdl7esrEIQaHm4lKnpx
5+nC9wrcPSYTtFeVCpPl0rUumUqQyifp/dupSOLJ7p+4XYkW48sM/9lRERp6
MUW/7hEMvFrseWOomDVz4vcVrsJi74hpUywVASPDMe20KlQYcaj5x1PhueGV
oo5hFWRF97B9TqSiTDpAwdSzChxNfRXF16jYsjGpU7+pCr2i//3DLxWv/rsc
Xu73FN7NAnVez6lYa19uYP1VjRwJ543tM1R0kw4EaK1/jm3qSsrOc1ToF9Yl
fCI/xzvzae35eSoKmS00U3Seg83/0s6Ny1R8VF07D/fn8H5z53QQkzScdtpm
X+p8DlyaqqNxS2M4zzXGY1cdfoxHHEqQl0b1lScSwdR6CIW+6Yq0lsZ4gOwp
l4sN+B9fL9Vx
             "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PlotRange" -> {{0, 10}, {0., 9472.784642037905}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[2], 
             RGBColor[0, 0, 1]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>]]& )[<|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PlotRange" -> {{0, 10}, {0., 9472.784642037905}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            AbsoluteThickness[2], 
            RGBColor[0, 0, 1]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>],
     ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
      4.503599627370496*^15, -4.503599627370496*^15}}]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[2], 
          RGBColor[0, 0, 1]], 
         Line[CompressedData["
1:eJwV1nc41Q8bBnAj0rH3ds6hzBPZinxvMyTqhAYpEkVEkohkZUciJLOMEqmo
RDKTjJSSpElC+iF7v71/PddzPf/ez319qM6n6MeYGBgY9BgZGP4/sy44s6q6
xOl7OL/UYmCYIJq6KZb7KCeIVd5M8VSOCWLtRW04hRJA1Pgo/1QXnSCy6hLI
LJQYwuJXtUmi2gRxcruf5xw5gzjT0ypce2yC6F46njJBvk28qXz5H1PnBLH+
0w+5P+QqooezmOZcOEnkvcrx+U1uJZJUK67Sz00R0+mVil/jW4m4Xym6Y9FT
hKlb28DbhVYCCjWklIwpYox5zvZp9yuCLWizNVf1FKGz3WpbTFQ7MX57fXPZ
6hTRdW+ZSW78NbFWpqN4J3qaCHlFs1A93E0w6ldpDRTNEGX3Yj6dVO4jtqTX
FZsIzROjfKPxFk59xOZZV4nTCvOE3FkLffmUPuKcumF3qd48kavHnjew0Ec0
NG7V3Xt0nkhujXc92PyJ8G56ZrHv/jxxdiBxcofDZ4JjuVHPevcCkcPeFs5r
8o0QLrkste/6IuFGvMkYOz1AnHSVCCxzWiEY8meffoobIFQk87bdOLdCpK+T
6H9169/doflrZuIK8bLVVep2zwAR0fWG+82zFULeZjn/2LZBwlj+VpKA+Cox
fFzu7hfGn0Rf7INLHB9XCffk4NqupCHioddl7quqDPD6qTBQUTZC3OkLuHbn
IyO+OX5kq28dIXY7Kru1DDNib2+0csfgCOEpsI95co4ROm2/An6KjRKlhc6t
7kJMYL5fwCMUNUo4XZl+trCXCelBVH3/w78JIyeR6ctvmFDPL5qxlecPcYBw
+vqzhxkkaoTcV51/OSCnhXzjYMVLvSsqF0wmCE8eQVVLKVZc2p+tLUn/t7ON
FTSrsIIp6ckOe48JwpyVxvKDzorF1TG3D1kTBPlKVHt9Bit+99sWv2aaJBKb
36vIKa5He7qcQl37JPHwTNfNXls2XOZpU8w7MkVIbXQ7cOoTCVXakpVWXlPE
xy0tjV5/SRh0PEUsn58ipLujvoZuYIduKb/NvrQpgnP6rteANjuGzR2COTun
CJtatKSmssMo/M/rAN1pokT+5KkXNhyYn+H2owvNEHXVleLdPzjh/MnmOXP7
LOGx/W/Eu1wekDK/e/p8nCVeXo1jf13GgwcHvSS+Ds0SAaq+9Pc1PGDuiwp4
yjhHsNlXmbF85MGt3qfqPtpzxHLByz9TvLwYek8p/pI/R7i87RgVuMQL966x
pKqAeeKgqM9iqT8ffJojnE/JLRJhZ2MoN8IEIDVoyjqrvkhYrvDMlycLoI1p
w50gLBKctCCPt/kC2ISEyZgDi8Tq66Rduo0C+Pg09eKtuEVif4OnYOE6QRiU
F2Z/HF8k6N6Xw4djBMGb+bLP6MkS4bu4e/F4thDue3PsFTFfISSPkvMqJkXQ
fp0/oNRuhaigxcaMsopiqEksx9BlhSgfp5xXkxCFmKjC75MhK4Rfg/bjeVNR
RNSbhNdXrhBdM3eNjmSJwo4v5KG79CqhmExzvL1LDIsPJ/mfLa0SHDMz36/W
iCPvvMfoln0MUD0ikhL4QQpb6jbMRx1iQEz+5+CZcSnUrStm+XqUAWa5Q+/D
2cj4ljBISfBmwHXWUK5PW8mQyj20bySGAZsqHtr4ZZFxvcm6Ka+GAWrM9EB1
DQqSOTWy+aQZoekZE/eBlYqwnOU902OMcCrVtqlvl8buLU98lKYY4bHsJen8
SRpS9b5XnBcYUTDla8Y1Ko2nP0a7uliYwJhz8Ff0ehn83fTRulSKCVz2ZoZs
RjJwvlu5y3U3E3p75nZr18jAoMrLvPchE7Qrb51Ie7wRDN3fUBPIjCCX3Mig
d7KIGKnNCwxlBqNFs2XjL1lsYMhi2hrNDB9K6kGxJVnwbT7QVJnKDPH7W0MX
qHLYFPVmx71yZpxo078Q7C0HC90Gq/whZoTShM8X88jj6s2bDtH0dbjH4ik4
fkgBsmdcz9kosiCiIDIqXoWGzdu+7s3ZwoJQ/R3FdSY0aDDsVxnVYsFCZ5Mp
qwMNhvHmQyFGLLi9TULjRTQNjrdoNiUOLJh9+MRGbICGa+/+qjAlsoBG5M6Q
MzeDRTPk170pFghdtTFkEVXB4EyaHfszVnwt6LGul1NFvoG67+dGVsyyVo+7
aanicEJn4r1XrEja84hP3EQVfRtZWvf2siK88glHkbMq3uw9rXtjihVj046r
dtmqqL1vSdn87893fqE4U0TUkObJOGqVth7aNavuRYLqsPjpHpzswwY+6Y1d
IrqaMA2WuWt8jg1j/Vd8f1pqwlCwv2/2AhvUVBWY6x01sc1kl459PBucWUZF
CsI0oVigMiVTxAYfg7QQ6TZNsB+bPl7Zz4aM/MyjK45aaB8MtundsQF1pqPc
icnasBpMUpKSIuEi63dHGdo2tCsNvnPYSMKduNdnMrANO321L2QqktC9vSuG
bLsNZkxfukS0Sbj6QXjA/sI2GFKUzvLvJuFjN/3htTfboOnQXMcWRoKH1OVx
8nldSLxbsJ36ScKy1x3e/j49jDY6X3xZyg7pG7w6c68JkK/0ul+uYMcb2nLu
5CgBG0crW5tqdlzUOO7HyAzUzm9V/PaSHfvnvLU1pYDkzbzv5gbY4Ty/XCpn
C+imPZeTE+OAv3kep0EzEO8u8TryEgd+jxOZ8WUGUObtkTQ6zImEiwsq/UVG
GEoYCks9xok4t6o77o+NkEWa+/XLgxNZnB5+LC1G4Fgn8iD+HCfkGwuoR4aM
MDp7wLTnCiduGW0dvrPJGAX9n71ONHHivHLI5+xCY0gU/3yeqMAFwb3fo3Y8
MAGJmHHqn+KC67ntDBN/d+CcgTzbo0UuGEamJgSuN8OQkX1ZIiM3jEO2VQlJ
mKHBrH7RkJsb14xH5SJMzBBIT7h6W5EbZjfUODUzzPD72Kbms07c8PAW8Fs2
Mkd7vK0872tu1O6hHU8qssCOPwfnpG3/9fDVOG3vO7uQLRDeHbKfB1MLW3Q9
GndhWrfkXr89DxqLP+04378LubFLbtecebB3UqGxj8sKi3I3ejd48yD9qbVm
xhkr3HX+XDURy4MNk3E9MsbW4Ok9HFRbx4NQ47qe+YDd6G1wYTxI48VYOmfN
/l10TBj0iQWr8CIwc9fiE3s61tdba+Sq8eLtH6vwje50aD3f5jakwwuRFaEM
ySg6Uqp5Ok6b8KIjqLMjvZ4O64qa9DhHXiz1JhlV6+zFiwKBLc+SeLF2ulJ4
UsUGldFNjpQZXpyOZL6pb2yHYos2kah5Xkivdj3R3GeH6xxv3/5Z4kVBUd+M
nrsdLiZ9Na1m4oNc9SOJoCQ7WKYvKtvx8OFB4v282s92+FG0ZS1OiQ92RqVd
R87vA1fLjZw5Jz6U+IeEXGjcD1cWv2+dnXwgt0tHesXaQ4zc+mHpDR+EE4bz
bHLt0akj+Vr+PR/cGw7IWz6yh9bJ5mdhn/ggE1Fy+9QPe7B2C2ZqDfPB647P
ulhdBxTkPrLNZuQHdXnnaZFJBwzqzr/y1OAHRYBuyOjuiKOnz1dyXOdHdWYn
SaHtCLTUvlQqZPHjRnuOEXqPgPQXj0xz+UHf/azc6ecRlPuwPr5YyA+1qood
jWtHsOx95cn0A37U6rw3Y9J0wrVTRdX9bfywuxZQdjbPCa0nu+vvrvDjaKE2
h2+YM1TclDotnQRQeIO0IdfVBV9OkE+VuggguKVO4ru/C+JP8vNwHRfAPiX9
l1tiXDDis7TntZcAtu6eE14uccHNoLb3e4IEoHAidtborwuEkz0+26UJQNpX
oeJm6DGs1ZSMHekQgM+kYvRKiSte89HY/bYKwtLiiC6f2gnoe3qOZOoJYtVa
xGfa5ATKWspaGghBSBD9+4YOnMDlINUIHlNBFCmJuS+EnoDlkNZKCV0QAj5X
Vz+/PYFXVQbjPzwEAT3qZIm/O5qP7OvenS2Imvp8+8oOD1SXhWXSmIVwQUSw
yLfMC6yWtmJprEK4pTcZ/+ClF/aMyGUwkoQgG7VnaP2AF37JdFzr4RHCHtNQ
zAqfAn+GcPJFKSE0R3qUD4Sdgkf43eh3W4UQEt64J0bZG+L7e/yCvIVwQNyl
tpDXB+cZFXe3fxaCroq48u+V0xgyZu+V/S6EvvwAmS+cvtgdPXY4dFAINzkL
gr9I+mIj971TWr+FcGa9e8J6fV+0S2gk5s4LQXN2ct/yBV9I6eh3nuEXhnzG
lfxA5jNo8KJbSpoLg3V50l5C2A+k/kAzrwphfE8K1y728IeW/23OxMfCyDNP
ZWC44A8nvt63954KYyTFSc41yR9PzDQPTdYJI9RAo/pQpT9cK8d9znQIwy1y
QWdpzR/1l10yA4eEUWNESllIO/evr6z+uyQigrfpQl9suwPws5CakhMkgrt3
Q3z1AoMwFvF9gfmiCFjWIjd5Jgfhr3Pe4ePhIvjUO370wT+pMZCpSqqxImit
6mwL/BQEsTRKQ0PaP2c5SWmw6AdjdxR54ucDEdjbRyxxr7+AGjdJS9qICFaG
N6sE3w5BirzouipbUXDIfwuczgiFg6Ns0cB+UdA1cwRHikKxMUXdgstBFFab
puuGK0NRsbYr6aizKNxJF05ueBuKdz1hElynRMGr7Mn1hhQG/sgxjaPRohg2
e2AdeiEMyd+fH+OsFkXA15auAq9wJF13bXGiiOEtd3qK8JlI+J8N8w2S+ec4
qrdSU0QkHOnZ5DRZMQSYjz8OTo0EjdTj304Tw8nfGn3CjyPRGmAir71VDN+q
uw+PLEaC6cDGGA66GKIZhU6QIi/BT/iHxeNwMcy8SxlJuBmFgymHOjl+iWHo
0XAfI0csJB6SxD1GxZD+Pl5+kRqLr28eu7X+EQPzS7nVdTqxcOHmY7w0LQbP
de9D6C6x8Ip9ob7GKI7HuTOpnc9iEXZRJWNSQhyaZ04zHDgTh9snGV166P/c
Wd+srjARj3njgoWcWnGMMJWf1uNPQlB1TnhTvTgSGyXv/SAngUHtOudIkzh4
2ku/JtOSsJ6cSFVrE8cN40Q9XtMkCC2cM2/6IA7xeaWGSwFJUC+1zBieEAfL
1Mic/Y8keAlO66jKSEBMIFhjuPoKBn4anmuIkoDa9+v9rklXYZjTma8YJ4Gq
zZO1wnlXkbv/YEfyZQlw0W9/6bl/FY5tPtJHUyUQlPed9WL3VfSV57Yz35SA
qorinhDhFLw9v0oxqZUAS4xdgV5+Chp4n7a2TEvA+BbdgL0xFfnbVcU7nCSh
1PG3YFAjHQ1WpPAlF0mo0zi7aGbp+HF4YFThuCQsDgnYRdinQyYs9eklL0m0
/vlR6BSWjlsvFg7gvCTIBucqerrSUWDdkP4wRRI0gwK3Su8MFDvtFbreIomD
Ikkh2TXXURrpx+u2+R9E/tPazxGdhTG9Q2GRW6RwMHNQXCInC7Rp46mb6lLQ
eDT6ffujLNxxFnj/basUFA5Zlj4ezEIx8TD9oKkUGLwHOiINs3FrYYJsdVgK
Tn+7atMZc3Dd86Sy5hUp/L6mvLRmmoso26M7mWekILwgGZc2mYd8636HY/NS
SCz9I9TGkI8ac1uvliUpFP+ODmfnycff7TuuxDGRoc/6WvGhcj4cZJU+8POQ
MU5y+Jl9Mh9qc3+dNyqRIeZl2TI5mo8v6WGBJk5kfDQ9LP5+8iY0+/NuR3WQ
sVrTm6eqVAge5ePz97rI2Gl30faJXiHGQpR39HaTwS9uOGhpVYhbMtWD8n1k
MP76U5vjUwgBj3fkV0NkZKM+68+TQiwGMe9kZaBgl8lsk7pFET6ya9WbiVJQ
3iVyt8q/GOkKmaUdOym4lRE/Yc5Ygukp04LwXRQsM/he8BQpgXXt3xtbrSkY
3/D56y2VErDutYgvoFNgLqzvZO1YAr+gBffgAxQ0p53ZnlpTAvrrffKb3Siw
HZW9NBV0Fxx+AjfjwygwNohuPMtZhpC6hPSdVRT8LiV5fHhSjtHPdSkLTylo
y/Q9NfyiHHZLU0lFNRSstjCbs7wvB03rYAxzHQUihadvOk+Wo7dENrD6BQVN
PlZcpYr3oZb23F7pHQV7V+azYnLuY8hzUop9nAKjkK7zd5IfYJe4bcGrjVQI
VwxHjudWIH1Quc5eloprsfnLUvcrMFjK9mlMjor9Ewdl7esrEIQaHm4lKnpx
5+nC9wrcPSYTtFeVCpPl0rUumUqQyifp/dupSOLJ7p+4XYkW48sM/9lRERp6
MUW/7hEMvFrseWOomDVz4vcVrsJi74hpUywVASPDMe20KlQYcaj5x1PhueGV
oo5hFWRF97B9TqSiTDpAwdSzChxNfRXF16jYsjGpU7+pCr2i//3DLxWv/rsc
Xu73FN7NAnVez6lYa19uYP1VjRwJ543tM1R0kw4EaK1/jm3qSsrOc1ToF9Yl
fCI/xzvzae35eSoKmS00U3Seg83/0s6Ny1R8VF07D/fn8H5z53QQkzScdtpm
X+p8DlyaqqNxS2M4zzXGY1cdfoxHHEqQl0b1lScSwdR6CIW+6Yq0lsZ4gOwp
l4sN+B9fL9Vx
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PlotRange" -> {{0, 10}, {0., 9472.784642037905}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[2], 
          RGBColor[0, 0, 1]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\"x-axis\"", HoldForm], TraditionalForm], 
    FormBox[
     TagBox["\"y-axis\"", HoldForm], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
   "\"\\!\\(\\*SuperscriptBox[\\(e\\), \\(x\\)]\\)\"", TraditionalForm],
  PlotRange->{{0, 10}, {0., 9472.784642037905}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9036253616299257`*^9, 3.9036253799755907`*^9}, 
   3.9036254191574707`*^9, 3.903625658862542*^9, 3.90362809772434*^9, 
   3.903634840127489*^9, 3.903635364791445*^9, 3.90363614079291*^9, 
   3.903637131929198*^9, {3.903640259587027*^9, 3.903640307307479*^9}, 
   3.903640506794835*^9, 3.903709526647766*^9, 3.903709718328817*^9, 
   3.903709803917788*^9, 3.903710841662285*^9, 3.903711308443408*^9, 
   3.903711749261979*^9, 3.903712059647497*^9, 3.903964043631357*^9, 
   3.903964347060632*^9, 3.904047887090016*^9, 3.9040515998855257`*^9, 
   3.904054807730531*^9, 3.904062533036292*^9, 3.904072645720848*^9, 
   3.904073359837601*^9, 3.904073401974546*^9, 3.90407410394077*^9, 
   3.904078120012102*^9, 3.904254025125478*^9, 3.904256255322628*^9, 
   3.904329934842388*^9, 3.904332011628187*^9, 3.904332097410173*^9, 
   3.904333935739713*^9, 3.904409688176187*^9, 3.904411386846435*^9, 
   3.904416781113776*^9, 3.904417140153771*^9, 3.906478311210082*^9, 
   3.906578657280664*^9, 3.906581714957874*^9, 3.9065824965804377`*^9, 
   3.906582838241185*^9, 3.908995629487711*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"c8e103f8-8118-427b-bd0c-0c27c3531c50"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.6 Logical Operators and Infix Notation", "Subsection",
 CellChangeTimes->{{3.906579064898712*^9, 
  3.906579084337625*^9}},ExpressionUUID->"9fb27783-1154-4c11-8dfd-\
fece676c568e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"6", "*", "1"}], ">", "2"}]], "Input",
 CellChangeTimes->{{3.903626825670352*^9, 3.903626825673181*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"a893cf86-6f3d-4105-9c0f-203d44468797"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.9036268313597383`*^9, 3.903628097745477*^9, 3.9036348401475587`*^9, 
   3.903635364812974*^9, 3.903636140813262*^9, 3.903637131949364*^9, {
   3.903640259606779*^9, 3.903640307327676*^9}, 3.903640506815216*^9, 
   3.903709526669198*^9, 3.903709718348899*^9, 3.9037098039381247`*^9, 
   3.903710841684142*^9, 3.903711308467263*^9, 3.903711749283053*^9, 
   3.903712059669992*^9, 3.903964043819964*^9, 3.903964347264604*^9, 
   3.904047887115768*^9, 3.904051599906535*^9, 3.904054807751263*^9, 
   3.9040625330569983`*^9, 3.904072645742954*^9, 3.9040733598589277`*^9, 
   3.904073401996269*^9, 3.9040741039622726`*^9, 3.904078120033966*^9, 
   3.904254025148774*^9, 3.904256255343897*^9, 3.904329934863524*^9, 
   3.9043320116485453`*^9, 3.904332097430685*^9, 3.904333935762557*^9, 
   3.904409688200229*^9, 3.9044113868669047`*^9, 3.904416781134222*^9, 
   3.904417140175521*^9, 3.906478455578439*^9, 3.906578657304908*^9, 
   3.9065817149668093`*^9, 3.9065824966038833`*^9, 3.906582838263938*^9, 
   3.9089956294916973`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"93bd3b91-0551-4ccf-81a5-53610442ad22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"6", "*", "1"}], "<", "2"}]], "Input",
 CellChangeTimes->{{3.903626832636114*^9, 3.903626832639669*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"26625421-6b80-4201-bfd4-31d386f7a8d8"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.903626833136372*^9, 3.903628097762967*^9, 3.903634840167984*^9, 
   3.903635364830242*^9, 3.903636140832177*^9, 3.903637131965105*^9, {
   3.9036402596242533`*^9, 3.903640307345753*^9}, 3.903640506834563*^9, 
   3.903709526691022*^9, 3.903709718366069*^9, 3.903709803957417*^9, 
   3.903710841710184*^9, 3.903711308491756*^9, 3.903711749305731*^9, 
   3.903712059691276*^9, 3.903964043873912*^9, 3.903964347358811*^9, 
   3.90404788713181*^9, 3.904051599923395*^9, 3.9040548077678213`*^9, 
   3.904062533074143*^9, 3.904072645762423*^9, 3.904073359879339*^9, 
   3.90407340201927*^9, 3.904074103987773*^9, 3.9040781200514107`*^9, 
   3.904254025165551*^9, 3.9042562553582087`*^9, 3.904329934879899*^9, 
   3.904332011661729*^9, 3.904332097445299*^9, 3.904333935780973*^9, 
   3.904409688218121*^9, 3.904411386884692*^9, 3.9044167811486607`*^9, 
   3.904417140194071*^9, 3.906478457472358*^9, 3.9065786573182*^9, 
   3.9065817149814186`*^9, 3.9065824966196*^9, 3.906582838284274*^9, 
   3.908995629507195*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"84f03ea2-a10a-46a1-bf1c-21d7e11c33f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], ">=", 
  RowBox[{"1", "/", "2"}]}]], "Input",
 CellChangeTimes->{{3.903626858794295*^9, 3.903626865895693*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"9b57de47-4107-4624-bfce-69f0afc5a628"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.903626866266154*^9, 3.903628097768255*^9, 3.903634840174304*^9, 
   3.9036353648380823`*^9, 3.9036361408368077`*^9, 3.903637131969302*^9, {
   3.9036402596284313`*^9, 3.903640307352704*^9}, 3.903640506839861*^9, 
   3.903709526698738*^9, 3.903709718370645*^9, 3.90370980396196*^9, 
   3.903710841715373*^9, 3.903711308496826*^9, 3.903711749310678*^9, 
   3.903712059696485*^9, 3.903964043898581*^9, 3.903964347405685*^9, 
   3.904047887137103*^9, 3.9040515999280767`*^9, 3.904054807772659*^9, 
   3.9040625330791607`*^9, 3.904072645769471*^9, 3.90407335988589*^9, 
   3.904073402024661*^9, 3.904074103993128*^9, 3.904078120057472*^9, 
   3.90425402517131*^9, 3.904256255363125*^9, 3.904329934884873*^9, 
   3.904332011678901*^9, 3.9043320974513*^9, 3.904333935787925*^9, 
   3.904409688223063*^9, 3.904411386889526*^9, 3.904416781153652*^9, 
   3.904417140204582*^9, 3.906478458635672*^9, 3.906578657323634*^9, 
   3.906581714985843*^9, 3.906582496624751*^9, 3.906582838289653*^9, 
   3.908995629511134*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"3e242ca4-1d74-45d0-a627-e32bfbc1da62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "/", "4"}], "<=", 
  FractionBox["1", "2"]}]], "Input",
 CellChangeTimes->{{3.903626877968306*^9, 3.9036268963299932`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"c813a4ca-af10-47e1-912b-f7e8ded35d65"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.90362689681149*^9, 3.903628097772613*^9, 3.903634840194631*^9, 
   3.90363536485539*^9, 3.903636140840666*^9, 3.903637131986809*^9, {
   3.903640259648443*^9, 3.90364030737132*^9}, 3.903640506858614*^9, 
   3.903709526717941*^9, 3.903709718374379*^9, 3.903709803981683*^9, 
   3.903710841719407*^9, 3.903711308501071*^9, 3.90371174933337*^9, 
   3.903712059720004*^9, 3.9039640439455*^9, 3.903964347437358*^9, 
   3.904047887141457*^9, 3.9040515999320188`*^9, 3.904054807776753*^9, 
   3.904062533083447*^9, 3.904072645788677*^9, 3.9040733599066257`*^9, 
   3.904073402029072*^9, 3.904074104019279*^9, 3.904078120073992*^9, 
   3.90425402518782*^9, 3.904256255378196*^9, 3.90432993488955*^9, 
   3.904332011692202*^9, 3.904332097465755*^9, 3.904333935803129*^9, 
   3.904409688241063*^9, 3.90441138689358*^9, 3.904416781157775*^9, 
   3.904417140222859*^9, 3.906478537523697*^9, 3.906578657336134*^9, 
   3.90658171500387*^9, 3.906582496644591*^9, 3.906582838294149*^9, 
   3.9089956295144863`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"5b21891c-4bc1-461c-89a6-7dc920fee17a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"3.12", "==", "2.72"}]], "Input",
 CellChangeTimes->{{3.903626902719013*^9, 3.9036269027236757`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"9a2638f0-a341-407b-ba7c-121ca71301e2"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.903626903344863*^9, 3.903628097793245*^9, 3.903634840199067*^9, 
   3.903635364859898*^9, 3.903636140863015*^9, 3.903637131991151*^9, {
   3.903640259652615*^9, 3.903640307375662*^9}, 3.903640506863312*^9, 
   3.9037095267223396`*^9, 3.903709718394802*^9, 3.903709803986347*^9, 
   3.903710841749178*^9, 3.903711308525105*^9, 3.90371174933848*^9, 
   3.903712059725199*^9, 3.903964044024106*^9, 3.903964347484256*^9, 
   3.904047887159136*^9, 3.904051599950247*^9, 3.904054807793971*^9, 
   3.904062533088231*^9, 3.904072645793614*^9, 3.904073359911449*^9, 
   3.904073402063932*^9, 3.9040741040245667`*^9, 3.904078120079417*^9, 
   3.904254025193008*^9, 3.904256255383419*^9, 3.9043299349096107`*^9, 
   3.904332011696875*^9, 3.904332097470701*^9, 3.9043339358081417`*^9, 
   3.904409688245976*^9, 3.904411386914367*^9, 3.904416781161838*^9, 
   3.9044171402302527`*^9, 3.906478538439809*^9, 3.906578657341869*^9, 
   3.906581715008332*^9, 3.906582496649746*^9, 3.9065828383194857`*^9, 
   3.908995629534888*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"e46136ef-ccc8-4b13-88ae-70746aaeb430"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Pi]", "!=", 
  SqrtBox[
   RowBox[{"-", "1"}]]}]], "Input",
 CellChangeTimes->{{3.903626962395317*^9, 3.903626977044411*^9}, 
   3.906478544502245*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"64349419-d586-4d29-a481-638e9ede1c2e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.90362697775628*^9, 3.903628098099496*^9, 3.903634840202777*^9, 
   3.903635364863777*^9, 3.9036361408676786`*^9, 3.903637131994936*^9, {
   3.903640259656143*^9, 3.903640307379319*^9}, 3.903640506867303*^9, 
   3.903709526744459*^9, 3.903709718399313*^9, 3.903709803990377*^9, 
   3.9037108417546678`*^9, 3.90371130853024*^9, 3.9037117493609047`*^9, 
   3.903712059729334*^9, 3.9039640440557494`*^9, 3.9039643475311346`*^9, 
   3.9040478871679573`*^9, 3.904051599955019*^9, 3.90405480779883*^9, 
   3.904062533092432*^9, 3.904072645798165*^9, 3.9040733599345713`*^9, 
   3.904073402069146*^9, 3.904074104029234*^9, 3.904078120083889*^9, 
   3.904254025197594*^9, 3.904256255387957*^9, 3.904329934914716*^9, 
   3.904332011711342*^9, 3.904332097485166*^9, 3.90433393581235*^9, 
   3.904409688250155*^9, 3.9044113869192677`*^9, 3.904416781168354*^9, 
   3.9044171402477217`*^9, 3.906478539753441*^9, 3.90657865734628*^9, 
   3.906581715021578*^9, 3.906582496664609*^9, 3.906582838324766*^9, 
   3.908995629540723*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"f2a85993-bac4-4ac2-93d6-3230898e796e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "===", "2."}]], "Input",
 CellChangeTimes->{{3.918920847257725*^9, 3.918920849420562*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"06542575-c5eb-47f9-aba4-b2fdc4741734"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.918920850631115*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"56cc7785-e6eb-4496-85ec-eaaa11d5e928"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "==", "1"}], "&&", 
  RowBox[{"3.12", "==", "2"}]}]], "Input",
 CellChangeTimes->{{3.903627323287715*^9, 3.903627327747322*^9}, {
  3.903627436678062*^9, 3.903627437348869*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"b8e21df9-8bdd-4949-96e4-8966ebeb551d"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.903627437935963*^9, 3.903628098190531*^9, 3.903634840230412*^9, 
   3.903635364883823*^9, 3.903636140886263*^9, 3.903637132014323*^9, {
   3.903640259659627*^9, 3.903640307399629*^9}, 3.903640506888692*^9, 
   3.903709526748765*^9, 3.903709718417992*^9, 3.903709803994248*^9, 
   3.90371084178479*^9, 3.903711308534457*^9, 3.903711749365899*^9, 
   3.903712059751965*^9, 3.903964044103111*^9, 3.9039643475628157`*^9, 
   3.904047887182681*^9, 3.904051599970995*^9, 3.904054807815309*^9, 
   3.904062533109661*^9, 3.904072645818659*^9, 3.904073359939385*^9, 
   3.904073402091805*^9, 3.904074104051673*^9, 3.904078120103241*^9, 
   3.904254025218161*^9, 3.904256255402274*^9, 3.904329934938736*^9, 
   3.904332011718321*^9, 3.904332097490124*^9, 3.9043339358163986`*^9, 
   3.9044096882540627`*^9, 3.904411386923384*^9, 3.904416781182705*^9, 
   3.904417140252599*^9, 3.906578657362964*^9, 3.9065817150271277`*^9, 
   3.906582496669719*^9, 3.90658283832918*^9, 3.908995629555879*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"d22b6491-ee87-4c3c-8413-aed1a4827cf2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", "*", "2"}], "==", "3"}], "||", 
  RowBox[{
   RowBox[{"23", "*", "2"}], "==", "1"}]}]], "Input",
 CellChangeTimes->{{3.903627471507262*^9, 3.903627471510364*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"affb970b-1365-4356-b401-e6631868e557"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.903627472912868*^9, 3.903628098199885*^9, 3.903634840234598*^9, 
   3.903635364888457*^9, 3.903636140891035*^9, 3.903637132018757*^9, {
   3.90364025966306*^9, 3.903640307404057*^9}, 3.903640506893488*^9, 
   3.903709526752483*^9, 3.903709718422639*^9, 3.903709803999887*^9, 
   3.903710841792347*^9, 3.903711308540585*^9, 3.903711749370138*^9, 
   3.903712059757078*^9, 3.903964044149959*^9, 3.903964347609681*^9, 
   3.904047887187911*^9, 3.90405159997587*^9, 3.904054807820238*^9, 
   3.904062533114772*^9, 3.9040726458237877`*^9, 3.904073359943397*^9, 
   3.904073402096937*^9, 3.90407410405687*^9, 3.904078120108738*^9, 
   3.904254025223381*^9, 3.904256255407378*^9, 3.904329934947552*^9, 
   3.904332011731975*^9, 3.904332097494246*^9, 3.9043339358205853`*^9, 
   3.904409688258097*^9, 3.904411386927375*^9, 3.904416781187648*^9, 
   3.90441714025677*^9, 3.90657865736882*^9, 3.906581715040591*^9, 
   3.906582496674325*^9, 3.906582838336784*^9, 3.908995629560866*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"67f8244f-0d54-4130-ae64-9388f2e8d0ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "==", "1"}], "\[Xor]", 
  RowBox[{"2", "==", "2"}]}]], "Input",
 CellChangeTimes->{{3.903627502784836*^9, 3.9036275041788063`*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"d26c6415-bb5a-42e0-a533-620f3dbd7adc"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.903627504601747*^9, 3.9036280982185907`*^9, 3.903634840251314*^9, 
   3.90363536490588*^9, 3.903636140912402*^9, 3.903637132034665*^9, {
   3.9036402596808033`*^9, 3.9036403074225693`*^9}, 3.903640506897335*^9, 
   3.903709526756072*^9, 3.903709718426455*^9, 3.903709804018757*^9, 
   3.90371084181972*^9, 3.90371130856231*^9, 3.903711749392679*^9, 
   3.903712059761413*^9, 3.903964044181758*^9, 3.9039643476413584`*^9, 
   3.904047887192199*^9, 3.90405159999111*^9, 3.904054807824267*^9, 
   3.904062533119042*^9, 3.9040726458283033`*^9, 3.904073359947325*^9, 
   3.904073402120959*^9, 3.904074104081234*^9, 3.904078120125517*^9, 
   3.90425402524012*^9, 3.904256255423768*^9, 3.904329934963979*^9, 
   3.904332011736691*^9, 3.904332097512281*^9, 3.904333935835638*^9, 
   3.904409688275462*^9, 3.904411386947608*^9, 3.904416781191789*^9, 
   3.904417140261814*^9, 3.90657865738097*^9, 3.906581715045113*^9, 
   3.9065824966927633`*^9, 3.9065828383557587`*^9, 3.908995629564996*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"6fc19e0c-dbcc-4ccb-b3ae-33377ec88943"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Power", "[", 
   RowBox[{"1", ",", "2"}], "]"}], "\[Equivalent]", 
  RowBox[{"1", "^", "2"}]}]], "Input",
 CellChangeTimes->{{3.9036280498020697`*^9, 3.903628074561777*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"6b122758-87b4-4c01-9db0-1b71791a65c5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.903628050924202*^9, 3.903628098223789*^9}, 
   3.903634840256949*^9, 3.9036353649106083`*^9, 3.903636140917033*^9, 
   3.903637132038938*^9, {3.903640259685092*^9, 3.903640307427049*^9}, 
   3.903640506901205*^9, 3.903709526761113*^9, 3.903709718434082*^9, 
   3.903709804023613*^9, 3.9037108418265753`*^9, 3.903711308567534*^9, 
   3.9037117493978567`*^9, 3.903712059769391*^9, 3.903964044228679*^9, 
   3.903964347688258*^9, 3.904047887200864*^9, 3.904051599996044*^9, 
   3.904054807829958*^9, 3.904062533123232*^9, 3.90407264583451*^9, 
   3.904073359951838*^9, 3.904073402126259*^9, 3.90407410408639*^9, 
   3.904078120130889*^9, 3.904254025245325*^9, 3.904256255431769*^9, 
   3.904329934968978*^9, 3.9043320117497997`*^9, 3.904332097517795*^9, 
   3.904333935840819*^9, 3.9044096882800426`*^9, 3.904411386952467*^9, 
   3.904416781195917*^9, 3.904417140266092*^9, 3.906478960853788*^9, 
   3.906578657386107*^9, 3.906581715048758*^9, 3.90658249669804*^9, 
   3.906582838361281*^9, 3.9089956295740747`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"0d9d4e08-63f5-485c-8af9-6c54b08fbfc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Not]", 
  RowBox[{"2", "==", "1"}]}]], "Input",
 CellChangeTimes->{{3.9036281592344503`*^9, 3.9036281657457*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"89cde70a-7116-4d9e-af61-052bd3b2fc12"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.903628166534709*^9, 3.9036348402713013`*^9, 3.903635364914474*^9, 
   3.903636140935525*^9, 3.90363713204249*^9, {3.90364025970253*^9, 
   3.903640307430698*^9}, 3.903640506921479*^9, 3.90370952678061*^9, 
   3.903709718451058*^9, 3.9037098040276413`*^9, 3.90371084185305*^9, 
   3.903711308591106*^9, 3.903711749402078*^9, 3.903712059790592*^9, 
   3.903964044259947*^9, 3.903964347719517*^9, 3.904047887215794*^9, 
   3.904051600000022*^9, 3.904054807846334*^9, 3.9040625331404963`*^9, 
   3.9040726458537703`*^9, 3.904073359972447*^9, 3.904073402130573*^9, 
   3.904074104090837*^9, 3.904078120135445*^9, 3.904254025264264*^9, 
   3.904256255446408*^9, 3.90432993497351*^9, 3.904332011754556*^9, 
   3.9043320975325546`*^9, 3.9043339358450203`*^9, 3.90440968828377*^9, 
   3.904411386969936*^9, 3.904416781212191*^9, 3.904417140284062*^9, 
   3.90647897431546*^9, 3.906578657400066*^9, 3.906581715052254*^9, 
   3.9065824967126703`*^9, 3.906582838383227*^9, 3.908995629589268*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"7b46850b-f8a1-404c-8fe2-83be1e559ef8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"IntegerQ", "[", "1", "]"}], "\n", 
 RowBox[{"IntegerQ", "[", "1.", "]"}]}], "Input",
 CellChangeTimes->{{3.903628271522925*^9, 3.903628271529717*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"b6b1b4b0-1373-4611-b206-d84b46949039"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.903628272443101*^9, 3.903634840275448*^9, 3.903635364921319*^9, 
   3.903636140940193*^9, 3.903637132045986*^9, {3.903640259706812*^9, 
   3.903640307434616*^9}, 3.903640506926177*^9, 3.903709526784941*^9, 
   3.903709718455797*^9, 3.9037098040336113`*^9, 3.903710841860441*^9, 
   3.903711308596353*^9, 3.903711749406611*^9, 3.903712059796071*^9, 
   3.903964044307296*^9, 3.903964347766819*^9, 3.904047887221153*^9, 
   3.904051600006468*^9, 3.904054807851346*^9, 3.904062533145701*^9, 
   3.904072645858927*^9, 3.904073359977433*^9, 3.9040734021349154`*^9, 
   3.904074104096346*^9, 3.904078120140685*^9, 3.904254025269846*^9, 
   3.904256255451665*^9, 3.904329934980178*^9, 3.904332011758535*^9, 
   3.904332097537562*^9, 3.904333935849186*^9, 3.904409688287714*^9, 
   3.904411386975075*^9, 3.904416781217338*^9, 3.90441714028941*^9, 
   3.90647905712707*^9, 3.9065786574055843`*^9, 3.906581715058596*^9, 
   3.906582496718002*^9, 3.906582838388897*^9, 3.908995629594171*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"d1b2c114-ebd4-4c60-bd9c-8d55803b9e18"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.903628272443101*^9, 3.903634840275448*^9, 3.903635364921319*^9, 
   3.903636140940193*^9, 3.903637132045986*^9, {3.903640259706812*^9, 
   3.903640307434616*^9}, 3.903640506926177*^9, 3.903709526784941*^9, 
   3.903709718455797*^9, 3.9037098040336113`*^9, 3.903710841860441*^9, 
   3.903711308596353*^9, 3.903711749406611*^9, 3.903712059796071*^9, 
   3.903964044307296*^9, 3.903964347766819*^9, 3.904047887221153*^9, 
   3.904051600006468*^9, 3.904054807851346*^9, 3.904062533145701*^9, 
   3.904072645858927*^9, 3.904073359977433*^9, 3.9040734021349154`*^9, 
   3.904074104096346*^9, 3.904078120140685*^9, 3.904254025269846*^9, 
   3.904256255451665*^9, 3.904329934980178*^9, 3.904332011758535*^9, 
   3.904332097537562*^9, 3.904333935849186*^9, 3.904409688287714*^9, 
   3.904411386975075*^9, 3.904416781217338*^9, 3.90441714028941*^9, 
   3.90647905712707*^9, 3.9065786574055843`*^9, 3.906581715058596*^9, 
   3.906582496718002*^9, 3.906582838388897*^9, 3.908995629594867*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"dba4d8e7-f634-40c2-8c56-37607a33fcea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AtomQ", "[", "12", "]"}]], "Input",
 CellChangeTimes->{{3.903628314084345*^9, 3.903628314087628*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"de0940e2-8513-4aeb-95be-a25e5a46701e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.90362831536933*^9, 3.903634840291634*^9, 3.9036353649411182`*^9, 
   3.903636140961621*^9, 3.903637132063208*^9, {3.903640259711032*^9, 
   3.903640307453391*^9}, 3.90364050694521*^9, 3.903709526789339*^9, 
   3.90370971846054*^9, 3.9037098040533113`*^9, 3.903710841887978*^9, 
   3.903711308601707*^9, 3.9037117494303226`*^9, 3.903712059819313*^9, 
   3.903964044354185*^9, 3.903964347813717*^9, 3.904047887226344*^9, 
   3.904051600022368*^9, 3.904054807856382*^9, 3.904062533151046*^9, 
   3.904072645864281*^9, 3.904073360000089*^9, 3.904073402158983*^9, 
   3.904074104118444*^9, 3.90407812015712*^9, 3.904254025287423*^9, 
   3.904256255457083*^9, 3.904329934996973*^9, 3.904332011763279*^9, 
   3.904332097553095*^9, 3.904333935865965*^9, 3.90440968830613*^9, 
   3.904411386995962*^9, 3.904416781233131*^9, 3.904417140296151*^9, 
   3.90647905930267*^9, 3.90657865741844*^9, 3.906581715072988*^9, 
   3.906582496723884*^9, 3.906582838408908*^9, 3.908995629598612*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"3282871a-2e9e-40bf-8819-18b37b64b172"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.5.7 Algebraic Expressions", "Subsection",
 CellChangeTimes->{{3.906579118524746*^9, 3.906579135850256*^9}, 
   3.906580191512989*^9},ExpressionUUID->"20e65c69-2940-474f-b1ea-\
0b89c803e4a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "^", "2"}], ")"}], "+", 
     RowBox[{"y", "^", "2"}]}], ")"}], "*", 
   RowBox[{"(", 
    RowBox[{"x", "+", "y"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9036283801916327`*^9, 3.903628380195306*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"02cf5c56-cbbf-4195-ae3e-5f8409af2907"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "3"], "+", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "y"}], "+", 
  RowBox[{"x", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  SuperscriptBox["y", "3"]}]], "Output",
 CellChangeTimes->{
  3.9036283815358477`*^9, 3.9036348402959967`*^9, 3.903635364945648*^9, 
   3.903636140966143*^9, 3.903637132067761*^9, {3.903640259716775*^9, 
   3.903640307458214*^9}, 3.903640506950143*^9, 3.903709526794518*^9, 
   3.903709718465423*^9, 3.903709804058221*^9, 3.903710841893415*^9, 
   3.903711308608607*^9, 3.903711749435868*^9, 3.903712059824642*^9, 
   3.9039640444014354`*^9, 3.903964347845379*^9, 3.9040478872349586`*^9, 
   3.90405160002707*^9, 3.904054807863426*^9, 3.904062533155408*^9, 
   3.9040726458698463`*^9, 3.904073360005066*^9, 3.904073402164405*^9, 
   3.904074104123577*^9, 3.904078120162612*^9, 3.9042540252928867`*^9, 
   3.9042562554632397`*^9, 3.904329935001655*^9, 3.904332011769727*^9, 
   3.904332097558315*^9, 3.904333935871285*^9, 3.9044096883112183`*^9, 
   3.904411387001045*^9, 3.904416781238376*^9, 3.9044171403005958`*^9, 
   3.90657865742393*^9, 3.906581715077689*^9, 3.9065824967296124`*^9, 
   3.906582838414627*^9, 3.90899562960494*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"c4639eb5-6f57-44ba-864b-e46033454b6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"a", " ", 
   RowBox[{"x", "^", "2"}], "*", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", " ", "x"}], ")"}], "^", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903634834032916*^9, 3.903634834035168*^9}, {
  3.903635322616372*^9, 3.90363532345669*^9}, {3.906479304085709*^9, 
  3.906479317977644*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"00449594-4e38-485b-9819-67e359b8794f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "4"], " ", 
  SuperscriptBox["x", "5"]}]], "Output",
 CellChangeTimes->{
  3.903634840299809*^9, 3.90363532415701*^9, 3.903635364949582*^9, 
   3.9036361409851727`*^9, 3.903637132083336*^9, {3.903640259734617*^9, 
   3.903640307462005*^9}, 3.903640506970663*^9, 3.903709526814481*^9, 
   3.903709718482377*^9, 3.903709804079805*^9, 3.903710841920306*^9, 
   3.903711308629425*^9, 3.903711749440587*^9, 3.903712059829179*^9, 
   3.9039640444330516`*^9, 3.9039643478922787`*^9, 3.904047887249942*^9, 
   3.904051600031018*^9, 3.904054807880185*^9, 3.904062533172556*^9, 
   3.904072645889423*^9, 3.904073360025674*^9, 3.904073402186583*^9, 
   3.904074104146847*^9, 3.904078120167355*^9, 3.904254025300337*^9, 
   3.9042562554787073`*^9, 3.904329935005697*^9, 3.904332011783133*^9, 
   3.904332097562587*^9, 3.904333935886565*^9, 3.9044096883294888`*^9, 
   3.904411387018774*^9, 3.904416781242695*^9, 3.904417140318056*^9, {
   3.9064793146410227`*^9, 3.906479318431217*^9}, 3.906578657429051*^9, 
   3.906581715081499*^9, 3.906582496744673*^9, 3.9065828384340754`*^9, 
   3.908995629619256*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"b525531d-9c61-4f8b-afa5-bdf4c88db52b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], "+", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "y"}], "+", 
   RowBox[{"x", " ", 
    RowBox[{"y", "^", "2"}]}], "+", 
   RowBox[{"y", "^", "3"}]}], "]"}], "\n", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], "+", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "y"}], "+", 
   RowBox[{"x", " ", 
    RowBox[{"y", "^", "2"}]}], "+", 
   RowBox[{"y", "^", "3"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.903635530972751*^9, 3.903635530975578*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"3df3282f-7913-463a-a6c8-d6b1b10917ce"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "3"], "+", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "y"}], "+", 
  RowBox[{"x", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  SuperscriptBox["y", "3"]}]], "Output",
 CellChangeTimes->{
  3.903635532241699*^9, 3.903636140995427*^9, {3.90363712268819*^9, 
   3.903637132088245*^9}, {3.9036402597568493`*^9, 3.903640307483073*^9}, 
   3.903640506984433*^9, 3.9037095268442097`*^9, 3.903709718492853*^9, 
   3.903709804100078*^9, 3.903710841995624*^9, 3.903711308656333*^9, 
   3.903711749463578*^9, 3.90371205985269*^9, 3.903964044527339*^9, 
   3.903964347939612*^9, 3.904047887285367*^9, 3.904051600052345*^9, 
   3.904054807908255*^9, 3.9040625332019873`*^9, 3.904072645916254*^9, 
   3.904073360050061*^9, 3.904073402197441*^9, 3.904074104157816*^9, 
   3.904078120186439*^9, 3.9042540253196*^9, 3.904256255490093*^9, 
   3.9043299350263643`*^9, 3.904332011788178*^9, 3.90433209757898*^9, 
   3.9043339358973637`*^9, 3.904409688353807*^9, 3.904411387029595*^9, 
   3.904416781259599*^9, 3.9044171403734307`*^9, 3.906578657450245*^9, 
   3.906581715098971*^9, 3.9065824967610197`*^9, 3.906582838445364*^9, 
   3.908995629645811*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"5db657a6-398c-47c5-b32e-535f3b91a97d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["y", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.903635532241699*^9, 3.903636140995427*^9, {3.90363712268819*^9, 
   3.903637132088245*^9}, {3.9036402597568493`*^9, 3.903640307483073*^9}, 
   3.903640506984433*^9, 3.9037095268442097`*^9, 3.903709718492853*^9, 
   3.903709804100078*^9, 3.903710841995624*^9, 3.903711308656333*^9, 
   3.903711749463578*^9, 3.90371205985269*^9, 3.903964044527339*^9, 
   3.903964347939612*^9, 3.904047887285367*^9, 3.904051600052345*^9, 
   3.904054807908255*^9, 3.9040625332019873`*^9, 3.904072645916254*^9, 
   3.904073360050061*^9, 3.904073402197441*^9, 3.904074104157816*^9, 
   3.904078120186439*^9, 3.9042540253196*^9, 3.904256255490093*^9, 
   3.9043299350263643`*^9, 3.904332011788178*^9, 3.90433209757898*^9, 
   3.9043339358973637`*^9, 3.904409688353807*^9, 3.904411387029595*^9, 
   3.904416781259599*^9, 3.9044171403734307`*^9, 3.906578657450245*^9, 
   3.906581715098971*^9, 3.9065824967610197`*^9, 3.906582838445364*^9, 
   3.908995629663884*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"eecf4914-821a-447a-b737-2a7c06034da3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Together", "[", 
  RowBox[{
   FractionBox["1", "z"], "+", 
   FractionBox["1", 
    RowBox[{"z", "+", "1"}]], "-", 
   FractionBox["1", 
    RowBox[{"z", "+", "2"}]]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Apart", "[", 
  FractionBox[
   RowBox[{"2", "+", 
    RowBox[{"4", " ", "z"}], "+", 
    SuperscriptBox["z", "2"]}], 
   RowBox[{"z", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "z"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "z"}], ")"}]}]], "]"}]}], "Input",
 CellChangeTimes->{{3.903635652274695*^9, 3.903635759125579*^9}, {
  3.90363605726838*^9, 3.9036361221334767`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"023e50fc-7823-41f9-86fd-ce904e2b5a06"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "+", 
   RowBox[{"4", " ", "z"}], "+", 
   SuperscriptBox["z", "2"]}], 
  RowBox[{"z", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "z"}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.9036357299227257`*^9, 3.9036357642633266`*^9, {3.903636096320436*^9, 
   3.9036361810268908`*^9}, {3.9036371185981493`*^9, 3.903637132094935*^9}, {
   3.903640259778648*^9, 3.903640307503748*^9}, 3.9036405070085907`*^9, 
   3.903709526867688*^9, 3.903709718524612*^9, 3.903709804134351*^9, 
   3.903710842027978*^9, 3.903711308682966*^9, 3.903711749495111*^9, 
   3.903712059884768*^9, 3.903964044747005*^9, 3.903964348065077*^9, 
   3.904047887319958*^9, 3.904051600081114*^9, 3.9040548079320936`*^9, 
   3.904062533223446*^9, 3.904072645941834*^9, 3.904073360078207*^9, 
   3.904073402227921*^9, 3.90407410418495*^9, 3.904078120214405*^9, 
   3.904254025351565*^9, 3.9042562555162168`*^9, 3.904329935061861*^9, 
   3.904332011793494*^9, 3.904332097601002*^9, 3.904333935923183*^9, 
   3.904409688382528*^9, 3.90441138706534*^9, 3.9044167812835493`*^9, 
   3.904417140401935*^9, 3.906578657479499*^9, 3.906581715125161*^9, 
   3.906582496784964*^9, 3.906582838472466*^9, 3.908995629673306*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"28acf046-fdb5-48f4-ad8a-9ff0bdfe6ebe"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "z"], "+", 
  FractionBox["1", 
   RowBox[{"1", "+", "z"}]], "-", 
  FractionBox["1", 
   RowBox[{"2", "+", "z"}]]}]], "Output",
 CellChangeTimes->{
  3.9036357299227257`*^9, 3.9036357642633266`*^9, {3.903636096320436*^9, 
   3.9036361810268908`*^9}, {3.9036371185981493`*^9, 3.903637132094935*^9}, {
   3.903640259778648*^9, 3.903640307503748*^9}, 3.9036405070085907`*^9, 
   3.903709526867688*^9, 3.903709718524612*^9, 3.903709804134351*^9, 
   3.903710842027978*^9, 3.903711308682966*^9, 3.903711749495111*^9, 
   3.903712059884768*^9, 3.903964044747005*^9, 3.903964348065077*^9, 
   3.904047887319958*^9, 3.904051600081114*^9, 3.9040548079320936`*^9, 
   3.904062533223446*^9, 3.904072645941834*^9, 3.904073360078207*^9, 
   3.904073402227921*^9, 3.90407410418495*^9, 3.904078120214405*^9, 
   3.904254025351565*^9, 3.9042562555162168`*^9, 3.904329935061861*^9, 
   3.904332011793494*^9, 3.904332097601002*^9, 3.904333935923183*^9, 
   3.904409688382528*^9, 3.90441138706534*^9, 3.9044167812835493`*^9, 
   3.904417140401935*^9, 3.906578657479499*^9, 3.906581715125161*^9, 
   3.906582496784964*^9, 3.906582838472466*^9, 3.908995629674089*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"ffda61dd-921f-4536-9fca-8edc8158347d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.8 Solving Algebraic Equations", "Subsection",
 CellChangeTimes->{{3.906579151314804*^9, 3.90657917113266*^9}, 
   3.906579220943519*^9},ExpressionUUID->"76136e44-8bff-4b38-a4f4-\
238bde10b1c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"z", "^", "2"}], "+", "1"}], "==", "2"}], ",", "z"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9036404956575193`*^9, 3.9036404956596537`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"cc663b4c-7347-4e42-b6d8-0a8981d5090e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.903640507024497*^9, 3.903709526893446*^9, 
  3.903709718544099*^9, 3.903709804154388*^9, 3.9037108420553226`*^9, 
  3.903711308706599*^9, 3.903711749527154*^9, 3.903712059897647*^9, 
  3.9039640448765535`*^9, 3.9039643481275797`*^9, 3.9040478873490343`*^9, 
  3.904051600098661*^9, 3.904054807949578*^9, 3.904062533241355*^9, 
  3.904072645966219*^9, 3.904073360104217*^9, 3.904073402253487*^9, 
  3.9040741042124653`*^9, 3.904078120233654*^9, 3.904254025369399*^9, 
  3.904256255532222*^9, 3.9043299350784903`*^9, 3.904332011846055*^9, 
  3.90433209761744*^9, 3.904333935940043*^9, 3.904409688403797*^9, 
  3.904411387084403*^9, 3.904416781299396*^9, 3.904417140427589*^9, 
  3.906578657502563*^9, 3.906581715140517*^9, 3.906582496802182*^9, 
  3.906582838492538*^9, 3.9089956296904383`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"f4984412-0d65-4304-9674-3bee233d4bb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"z", "^", "2"}], "+", "1"}], "/.", 
  RowBox[{"Rule", "[", 
   RowBox[{"z", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.903640666139616*^9, 3.903640666142973*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"d324efe4-cc2b-45c2-821b-8e554dcfe825"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.903640666914825*^9, 3.903709526897794*^9, 
  3.903709718548665*^9, 3.903709804159156*^9, 3.903710842060648*^9, 
  3.903711308711762*^9, 3.903711749532415*^9, 3.903712059919623*^9, 
  3.9039640449198685`*^9, 3.903964348159277*^9, 3.904047887354295*^9, 
  3.904051600105096*^9, 3.904054807954578*^9, 3.904062533246393*^9, 
  3.904072645971656*^9, 3.904073360109077*^9, 3.904073402258979*^9, 
  3.904074104217564*^9, 3.904078120239828*^9, 3.904254025374642*^9, 
  3.904256255537181*^9, 3.9043299350827827`*^9, 3.9043320118529873`*^9, 
  3.904332097622191*^9, 3.9043339359451327`*^9, 3.9044096884082747`*^9, 
  3.90441138708925*^9, 3.9044167813043613`*^9, 3.904417140438179*^9, 
  3.906479645744506*^9, 3.906578657507779*^9, 3.906581715144959*^9, 
  3.9065824968074493`*^9, 3.906582838498089*^9, 3.908995629694915*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"01ed7abb-9200-4c22-b7c4-36d04310ba33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "^", "2"}], "+", "1"}], "==", "2"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], "^", "2"}], "+", "1"}], "==", "2"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.903640720566228*^9, 3.903640720568874*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"5567c300-9412-4393-b3a8-c2e20547e21b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellChangeTimes->{3.9036407224188538`*^9, 3.903709526917231*^9, 
  3.903709718564398*^9, 3.903709804179617*^9, 3.903710842087077*^9, 
  3.903711308716222*^9, 3.903711749536737*^9, 3.903712059924865*^9, 
  3.903964044951118*^9, 3.9039643482061586`*^9, 3.904047887369154*^9, 
  3.9040516001213284`*^9, 3.9040548079586487`*^9, 3.904062533250602*^9, 
  3.904072645991741*^9, 3.904073360113354*^9, 3.904073402263733*^9, 
  3.904074104238349*^9, 3.904078120254496*^9, 3.904254025379229*^9, 
  3.904256255556123*^9, 3.90432993508663*^9, 3.904332011866837*^9, 
  3.90433209762632*^9, 3.904333935949352*^9, 3.9044096884253807`*^9, 
  3.904411387093424*^9, 3.904416781308554*^9, 3.904417140456748*^9, 
  3.9064796784826803`*^9, 3.906578657519435*^9, 3.9065817151486053`*^9, 
  3.906582496825592*^9, 3.906582838517033*^9, 3.908995629698962*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"1acf4917-99a4-42bb-8fb2-93fae07b01bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "+", "y", "+", "z"}], "==", "2"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"6", "x"}], "-", 
       RowBox[{"4", "y"}], "+", 
       RowBox[{"5", "z"}]}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{"x", "+", 
       RowBox[{"2", "y"}], "+", 
       RowBox[{"2", "z"}]}], "==", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903640878434733*^9, 3.9036408784376497`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"24fbaab4-4978-457e-98e0-d92da62dba29"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "3"}], ",", 
    RowBox[{"y", "\[Rule]", 
     FractionBox["10", "9"]}], ",", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["19", "9"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.903640879202527*^9, 3.903709526923814*^9, 
  3.903709718569065*^9, 3.903709804184538*^9, 3.903710842094296*^9, 
  3.903711308720892*^9, 3.903711749559605*^9, 3.903712059929325*^9, 
  3.903964044998457*^9, 3.9039643482378697`*^9, 3.904047887391924*^9, 
  3.904051600128267*^9, 3.904054807977541*^9, 3.904062533269776*^9, 
  3.90407264599804*^9, 3.904073360134688*^9, 3.9040734023561783`*^9, 
  3.904074104317265*^9, 3.904078120260437*^9, 3.904254025398061*^9, 
  3.904256255564269*^9, 3.904329935091453*^9, 3.904332011875826*^9, 
  3.904332097630748*^9, 3.904333935965735*^9, 3.904409688430236*^9, 
  3.904411387113368*^9, 3.904416781326293*^9, 3.90441714046207*^9, 
  3.906479715446694*^9, 3.906578657526854*^9, 3.906581715152464*^9, 
  3.906582496831546*^9, 3.906582838522811*^9, 3.908995629718761*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"19543229-2e0a-4fe1-864b-00c54989dbc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"EQ1", "=", 
   RowBox[{
    RowBox[{"x", "+", "y", "+", "z"}], "==", "2"}]}], ";", 
  RowBox[{"EQ2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"6", " ", "x"}], "-", 
     RowBox[{"4", " ", "y"}], "+", 
     RowBox[{"5", " ", "z"}]}], "==", "3"}]}], ";", 
  RowBox[{"EQ3", "=", 
   RowBox[{
    RowBox[{"x", "+", 
     RowBox[{"2", " ", "y"}], "+", 
     RowBox[{"2", " ", "z"}]}], "==", "1"}]}], ";"}], "\n", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EQ1", ",", "EQ2", ",", "EQ3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9036410175080233`*^9, 3.903641017510881*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"1319b0fb-ce2b-4ca7-b0b9-2ed73f9ee1ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "3"}], ",", 
    RowBox[{"y", "\[Rule]", 
     FractionBox["10", "9"]}], ",", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["19", "9"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.9036410186692867`*^9, 3.903709526949076*^9, 
  3.903709718573214*^9, 3.9037098042033668`*^9, 3.903710842120745*^9, 
  3.903711308725456*^9, 3.90371174956533*^9, 3.903712059939898*^9, 
  3.903964045202579*^9, 3.903964348284767*^9, 3.904047887401207*^9, 
  3.904051600132509*^9, 3.90405480798281*^9, 3.904062533274903*^9, 
  3.904072646019096*^9, 3.904073360139888*^9, 3.904073402361527*^9, 
  3.904074104322134*^9, 3.904078120267988*^9, 3.9042540254033957`*^9, 
  3.904256255579517*^9, 3.904329935107325*^9, 3.904332011885128*^9, 
  3.904332097635232*^9, 3.904333935971247*^9, 3.904409688434361*^9, 
  3.904411387118518*^9, 3.904416781334386*^9, 3.904417140480319*^9, 
  3.906479763280011*^9, 3.906479870886291*^9, 3.906578657534546*^9, 
  3.906581715160408*^9, 3.906582496847024*^9, 3.906582838527808*^9, 
  3.908995629723905*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"4760f13c-7155-4e3e-8d0a-0a89b546ff43"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "+", "y", "+", "z"}], "==", "a"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"6", "x"}], "-", 
       RowBox[{"4", "y"}], "+", 
       RowBox[{"5", "z"}]}], "==", "b"}], ",", 
     RowBox[{
      RowBox[{"x", "+", 
       RowBox[{"2", "y"}], "+", 
       RowBox[{"2", "z"}]}], "==", "c"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9036411075070148`*^9, 3.903641107510151*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"d433d776-9ae4-40bc-bdb2-36af86bb18fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"2", " ", "a"}], "-", "c"}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{
      FractionBox["1", "9"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"7", " ", "a"}], "-", "b", "-", "c"}], ")"}]}]}], ",", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{
      FractionBox["1", "9"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "16"}], " ", "a"}], "+", "b", "+", 
        RowBox[{"10", " ", "c"}]}], ")"}]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.903641109304172*^9, 3.9037095269537582`*^9, 
  3.903709718577303*^9, 3.903709804208312*^9, 3.903710842127007*^9, 
  3.903711308746385*^9, 3.903711749645204*^9, 3.90371205996224*^9, 
  3.903964045249525*^9, 3.903964348410274*^9, 3.904047887418272*^9, 
  3.90405160013913*^9, 3.904054807999222*^9, 3.904062533292438*^9, 
  3.904072646107114*^9, 3.9040733601443243`*^9, 3.90407340238914*^9, 
  3.904074104326658*^9, 3.904078120286924*^9, 3.904254025419799*^9, 
  3.90425625558491*^9, 3.904329935112165*^9, 3.904332011904872*^9, 
  3.904332097649663*^9, 3.904333935987048*^9, 3.904409688438827*^9, 
  3.904411387136327*^9, 3.904416781349337*^9, 3.904417140567094*^9, 
  3.9064799386351337`*^9, 3.9065786575398197`*^9, 3.90658171517394*^9, 
  3.906582496852769*^9, 3.906582838534886*^9, 3.908995629739227*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"47dc976e-c07f-4409-a654-6f4b492f3efc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"EQ1", "&&", "EQ2"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903641209540738*^9, 3.903641211502636*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"f5787e69-be9b-4ea1-8536-fddbc18fda32"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"11", "-", 
        RowBox[{"9", " ", "z"}]}], ")"}]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     FractionBox[
      RowBox[{"9", "-", "z"}], "10"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.9036412121283712`*^9, 3.903709526957555*^9, 
  3.903709718582465*^9, 3.903709804230247*^9, 3.90371084215425*^9, 
  3.90371130875168*^9, 3.903711749650054*^9, 3.903712059967942*^9, 
  3.90396404528121*^9, 3.90396434845758*^9, 3.904047887423993*^9, 
  3.904051600154455*^9, 3.904054808004274*^9, 3.9040625332976313`*^9, 
  3.904072646112377*^9, 3.904073360150486*^9, 3.904073402394398*^9, 
  3.904074104350391*^9, 3.90407812029263*^9, 3.904254025424771*^9, 
  3.904256255589649*^9, 3.904329935127995*^9, 3.90433201191*^9, 
  3.904332097654563*^9, 3.904333935992517*^9, 3.904409688442759*^9, 
  3.904411387141581*^9, 3.904416781354678*^9, 3.90441714057235*^9, 
  3.906480015900224*^9, 3.906578657551765*^9, 3.906581715178588*^9, 
  3.906582496857435*^9, 3.9065828385548067`*^9, 3.90899562974413*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"e6031493-e0ac-48ef-8051-90c3fd56b4ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}]}], "==", "0"}], "||", 
    RowBox[{
     RowBox[{"x", "-", 
      RowBox[{"2", "y"}]}], "==", "1"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.903641260191741*^9, 3.903641261875074*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"d143cca8-5aca-47a5-bb53-473dec674264"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "y"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[ImaginaryI]", " ", "y"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "y"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.903641262388413*^9, 3.903709526973155*^9, 
  3.903709718598015*^9, 3.903709804234995*^9, 3.903710842161006*^9, 
  3.903711308772159*^9, 3.903711749654477*^9, 3.9037120599898148`*^9, 
  3.903964045328108*^9, 3.903964348488829*^9, 3.9040478874484873`*^9, 
  3.904051600160061*^9, 3.904054808008513*^9, 3.90406253330216*^9, 
  3.90407264613829*^9, 3.9040733602317457`*^9, 3.904073402399288*^9, 
  3.904074104355665*^9, 3.9040781203083763`*^9, 3.904254025428918*^9, 
  3.904256255606792*^9, 3.904329935132812*^9, 3.904332011914535*^9, 
  3.904332097668242*^9, 3.904333935996985*^9, 3.904409688460494*^9, 
  3.904411387162467*^9, 3.904416781359084*^9, 3.90441714057793*^9, 
  3.906578657557738*^9, 3.906581715182418*^9, 3.906582496875961*^9, 
  3.9065828385606403`*^9, 3.908995629749008*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"3934670a-80a5-4999-a784-2c3be685b1e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"z", "^", 
       RowBox[{"-", "2"}]}], "+", "1"}], "==", "2"}], "&&", 
    RowBox[{"z", "!=", "1"}]}], ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.903641394824718*^9, 3.903641394827903*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"8a3b00ff-4cf4-4f6b-9d34-8f76d9bf5374"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"-", "1"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.903641395879335*^9, 3.9037095269889097`*^9, 
  3.903709718604704*^9, 3.903709804326611*^9, 3.903710842187626*^9, 
  3.903711308793523*^9, 3.903711749677071*^9, 3.903712060078115*^9, 
  3.903964045391033*^9, 3.9039643485367374`*^9, 3.904047887465035*^9, 
  3.9040516001661043`*^9, 3.90405480801484*^9, 3.9040625333198824`*^9, 
  3.904072646145863*^9, 3.9040733602526217`*^9, 3.904073402422294*^9, 
  3.904074104378483*^9, 3.904078120315503*^9, 3.9042540254349413`*^9, 
  3.904256255623914*^9, 3.9043299351386747`*^9, 3.904332011922746*^9, 
  3.90433209767551*^9, 3.904333936004274*^9, 3.9044096885575747`*^9, 
  3.904411387182807*^9, 3.904416781365561*^9, 3.904417140599559*^9, 
  3.9064801432159023`*^9, 3.906578657567666*^9, 3.906581715187837*^9, 
  3.9065824968924026`*^9, 3.906582838583164*^9, 3.908995629765666*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"73fa030d-4389-4405-8df6-aa7cfe1c0136"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "==", 
    RowBox[{"-", "1"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.903709519763977*^9, 3.903709519765874*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"43530c33-ffb4-4463-88a2-0097d906fdcc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   TemplateBox[{"1"},
    "C"], "\[Element]", 
   TemplateBox[{},
    "Integers"]}], "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "+", 
      RowBox[{"2", " ", "\[Pi]", " ", 
       TemplateBox[{"1"},
        "C"]}]}]}], "||", 
    RowBox[{"x", "\[Equal]", 
     RowBox[{"\[Pi]", "+", 
      RowBox[{"2", " ", "\[Pi]", " ", 
       TemplateBox[{"1"},
        "C"]}]}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.903709527059987*^9, 3.903709718665278*^9, 
  3.903709804387014*^9, 3.903710842257386*^9, 3.903711308934519*^9, 
  3.903711749745778*^9, 3.903712060152278*^9, 3.903964046128738*^9, 
  3.903964348787487*^9, 3.9040478875707273`*^9, 3.904051600238036*^9, 
  3.904054808087206*^9, 3.904062533391648*^9, 3.9040726462152987`*^9, 
  3.904073360322823*^9, 3.9040734024818897`*^9, 3.9040741044483013`*^9, 
  3.904078120386184*^9, 3.904254025505151*^9, 3.904256255691036*^9, 
  3.904329935204831*^9, 3.9043320119380417`*^9, 3.904332097741539*^9, 
  3.904333936070648*^9, 3.904409688623608*^9, 3.904411387244683*^9, 
  3.904416781433997*^9, 3.904417140669496*^9, 3.906480220777947*^9, 
  3.906578657641955*^9, 3.9065817152532883`*^9, 3.906582496950267*^9, 
  3.906582838721552*^9, 3.908995629838708*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"be86d2a2-f50e-4869-9cf1-e655cfdafd93"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"h", "^", "2"}], "+", 
     RowBox[{"k", "^", "2"}]}], "<", "11"}], ",", 
   RowBox[{"{", 
    RowBox[{"h", ",", "k"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.903709638535187*^9, 3.903709648455316*^9}, {
  3.903709704991995*^9, 3.903709725925268*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"d3cac816-034e-426d-814a-9bd4559f9197"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SqrtBox["11"]}], "<", "h", "<", 
   SqrtBox["11"]}], "&&", 
  RowBox[{
   RowBox[{"-", 
    SqrtBox[
     RowBox[{"11", "-", 
      SuperscriptBox["h", "2"]}]]}], "<", "k", "<", 
   SqrtBox[
    RowBox[{"11", "-", 
     SuperscriptBox["h", "2"]}]]}]}]], "Output",
 CellChangeTimes->{3.90370972696555*^9, 3.903709804746851*^9, 
  3.9037108426203213`*^9, 3.90371130929718*^9, 3.903711750108086*^9, 
  3.903712060515538*^9, 3.9039640483596935`*^9, 3.903964349870853*^9, 
  3.904047887924123*^9, 3.904051600699544*^9, 3.904054808551503*^9, 
  3.9040625338523197`*^9, 3.904072646586323*^9, 3.90407336068671*^9, 
  3.904073402838234*^9, 3.904074104810399*^9, 3.904078120848512*^9, 
  3.904254025969882*^9, 3.904256256155182*^9, 3.904329935630838*^9, 
  3.904332011943925*^9, 3.904332098101646*^9, 3.904333936529746*^9, 
  3.9044096889916162`*^9, 3.90441138770096*^9, 3.90441678179546*^9, 
  3.904417141036061*^9, 3.906480222742692*^9, 3.906578657969435*^9, 
  3.906581715615923*^9, 3.906582497312188*^9, 3.906582839081569*^9, 
  3.9089956301704884`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"0f2ddc81-169f-47f7-a6bf-84f2d3e211a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Alpha]", "+", 
     RowBox[{"\[Beta]", " ", "*", " ", 
      RowBox[{"\[Alpha]", "^", "2"}]}]}], "==", "E"}], ",", "\[Alpha]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.903709764409946*^9, 3.903709788027417*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"08b2b992-247b-466c-a056-fa46b6973b04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\[Beta]", "\[Equal]", "0"}], "&&", 
    RowBox[{"\[Alpha]", "\[Equal]", "\[ExponentialE]"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\[Beta]", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"4", " ", "\[ExponentialE]", " ", "\[Beta]"}]}]]}], 
        RowBox[{"2", " ", "\[Beta]"}]]}], "||", 
      RowBox[{"\[Alpha]", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"4", " ", "\[ExponentialE]", " ", "\[Beta]"}]}]]}], 
        RowBox[{"2", " ", "\[Beta]"}]]}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.9037097710971327`*^9, 3.903709804761996*^9}, 
   3.903710842631029*^9, 3.903711309318991*^9, 3.903711750132305*^9, 
   3.903712060538656*^9, 3.903964048517156*^9, 3.9039643501067286`*^9, 
   3.904047888023131*^9, 3.904051600717413*^9, 3.904054808569583*^9, 
   3.904062533858875*^9, 3.904072646608046*^9, 3.904073360708885*^9, 
   3.904073402863014*^9, 3.904074104832378*^9, 3.904078120866648*^9, 
   3.9042540259901667`*^9, 3.904256256171831*^9, 3.904329935648724*^9, 
   3.904332011961328*^9, 3.904332098218563*^9, 3.904333936547596*^9, 
   3.90440968900982*^9, 3.904411387721937*^9, 3.9044167819136767`*^9, 
   3.90441714105678*^9, 3.906480224948367*^9, 3.906578658090348*^9, 
   3.906581715751911*^9, 3.9065824974389343`*^9, 3.906582839101715*^9, 
   3.908995630289689*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"fc021414-a92f-4a06-8724-be92dbc843e8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.9 Using Wolfram Alpha Inside Mathematica ", "Subsection",
 CellChangeTimes->{{3.906579190535115*^9, 
  3.906579239099066*^9}},ExpressionUUID->"0a3f2ab0-e6cc-4e3f-b291-\
792306780496"],

Cell[CellGroupData[{

Cell["Solve x^2+y^2== 1 && y+2x==0 ,for {x,y}", "WolframAlphaLong",
 CellChangeTimes->{
  3.903710031191899*^9, {3.903710095641696*^9, 3.90371013132274*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"3e2c874f-f0d9-46c4-988d-96055d0439f0"],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "Solve x^2+y^2== 1 && y+2x==0 ,for {x,y}", 
   Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {20, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "https://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
    
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"Solve[{x^2 + y^2 == 1, y + 2 x == 0}, {x, y}]"}], 
       XMLElement["cell", {"compressed" -> True, "string" -> False}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             TagBox[
              GridBox[{{
                 PaneBox[
                  StyleBox[
                   TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"solve\"", {
                    LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}]}}, 
                    GridBoxBackground -> {"Columns" -> {
                    GrayLevel[0.949]}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    ColumnsEqual -> False, RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
                    GrayLevel[0.84], 
                    GrayLevel[0.84]}, "Rows" -> {{
                    GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {"Columns" -> {2, 2}, "Rows" -> {{1}}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, BaselinePosition -> 1], 
                    $CellContext`TagBoxWrapper["Separator" -> " "]], 
                   LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                  BaselinePosition -> Center], 
                 PaneBox[
                  StyleBox[
                   TagBox[
                    GridBox[{{
                    TagBox[
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["x", "2"], "+", 
                    SuperscriptBox["y", "2"]}], "\[LongEqual]", "1"}], 
                    HoldForm]}, {
                    TagBox[
                    RowBox[{
                    RowBox[{"y", "+", 
                    RowBox[{"2", " ", "x"}]}], "\[LongEqual]", "0"}], 
                    HoldForm]}}, 
                    GridBoxBackground -> {
                    "Columns" -> {None}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    ColumnsEqual -> False, RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
                    GrayLevel[0.84], 
                    GrayLevel[0.84]}, "Rows" -> {{
                    GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {"Columns" -> {2, 2}, "Rows" -> {{1}}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, BaselinePosition -> 
                    Automatic], 
                    $CellContext`TagBoxWrapper["Separator" -> " "]], 
                   LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                  BaselinePosition -> Center], 
                 PaneBox[
                  StyleBox[
                   TagBox[
                    GridBox[{{
                    StyleBox["\" for \"", {
                    GrayLevel[0.6], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}], 
                    RowBox[{"x", ",", "y"}]}}, 
                    GridBoxBackground -> {
                    "Columns" -> {None, None}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    ColumnsEqual -> False, RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
                    GrayLevel[0.84], 
                    GrayLevel[0.84], 
                    GrayLevel[0.84]}, "Rows" -> {{
                    GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, BaselinePosition -> 1], 
                    $CellContext`TagBoxWrapper["Separator" -> " "]], 
                   LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                  BaselinePosition -> Center]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               ColumnsEqual -> False, RowsEqual -> False, 
               GridBoxSpacings -> {"Columns" -> {{
                    AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, 
               AllowScriptLevelChange -> False], 
              $CellContext`TagBoxWrapper["Separator" -> " "]], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement["dataformats", {}, {"plaintext,minput"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Results", "scanner" -> "Solve", "id" -> "Result", 
     "position" -> "200", "error" -> "false", "numsubpods" -> "2", "primary" -> 
     "true"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             FormBox[
              TagBox[
               GridBox[{{
                  PaneBox[
                   RowBox[{
                    RowBox[{"x", "\[LongEqual]", 
                    TagBox[
                    RowBox[{"-", 
                    FractionBox["1", 
                    SqrtBox["5"]]}], Identity]}], "\[And]", 
                    RowBox[{"y", "\[LongEqual]", 
                    TagBox[
                    FractionBox["2", 
                    SqrtBox["5"]], Identity]}]}], BaselinePosition -> 
                   Baseline, ImageSize -> 550]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column",
                 GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Column"], TraditionalForm], TraditionalForm], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             FormBox[
              TagBox[
               GridBox[{{
                  PaneBox[
                   RowBox[{
                    RowBox[{"x", "\[LongEqual]", 
                    TagBox[
                    FractionBox["1", 
                    SqrtBox["5"]], Identity]}], "\[And]", 
                    RowBox[{"y", "\[LongEqual]", 
                    TagBox[
                    RowBox[{"-", 
                    FractionBox["2", 
                    SqrtBox["5"]]}], Identity]}]}], BaselinePosition -> 
                   Baseline, ImageSize -> 550]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column",
                 GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Column"], TraditionalForm], TraditionalForm], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["expressiontypes", {"count" -> "2"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Approximate forms", "input" -> 
         "Result__Approximate forms"}, {}]}], 
     XMLElement["infos", {"count" -> "1"}, {
       XMLElement[
       "info", {
        "text" -> "e_1 \[And] e_2 \[And] ... is the logical AND function"}, {
         XMLElement[
         "link", {
          "url" -> "http://reference.wolfram.com/language/ref/And.html", 
           "text" -> "Documentation", "title" -> "Mathematica"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://mathworld.wolfram.com/AND.html", "text" -> 
           "Definition", "title" -> "MathWorld"}, {}]}]}]}], Typeset`pod3$$ = 
   XMLElement[
   "pod", {"title" -> "Implicit plot", "scanner" -> "Solve", "id" -> 
     "PlotOfSolutionSet", "position" -> "300", "error" -> "false", 
     "numsubpods" -> "0", "async" -> 
     "https://www6b3.wolframalpha.com/api/v1/asyncPod.jsp?id=\
MSPa3750245a42eidc3h928g00005abiaa74ch6eg3e43629183885576317489"}, {
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False, False}, True}, Typeset`aux3$$ = {
   True, False, {False}, True}, Typeset`asyncpods$$ = {{3, 
     Hold[Typeset`pod3$$], 
     "https://www6b3.wolframalpha.com/api/v1/asyncPod.jsp?id=\
MSPa3750245a42eidc3h928g00005abiaa74ch6eg3e43629183885576317489"}}, 
   Typeset`nonpods$$ = {}, Typeset`initdone$$ = 
   FrontEnd`SuppressEvaluationHash[False], Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> 
    "false", {"http://www.w3.org/XML/1998/namespace", "space"} -> "preserve", 
    "numpods" -> "3", "datatypes" -> "Solve", "timedout" -> "", 
    "timedoutpods" -> "", "timing" -> "1.093", "parsetiming" -> "0.607", 
    "parsetimedout" -> "false", "recalculate" -> "", "id" -> 
    "MSP3748245a42eidc3h928g0000412a9b13ffb9eifa", "host" -> 
    "https://www6b3.wolframalpha.com", "server" -> "3", "related" -> 
    "https://www6b3.wolframalpha.com/api/v1/relatedQueries.jsp?id=\
MSPa3749245a42eidc3h928g0000153fed0adg7d1d503629183885576317489", "version" -> 
    "2.6", "inputstring" -> "Solve x^2+y^2== 1 && y+2x==0 ,for {x,y}"}, 
   Typeset`sessioninfo$$ = {
   "TimeZone" -> -6., 
    "Date" -> {2023, 11, 14, 18, 7, 12.178803`7.838179591421798}, "Line" -> 
    91, "SessionID" -> 29159776013087956237}, Typeset`showpods$$ = {1, 2, 3}, 
   Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, Typeset`open$$ = False, 
   Typeset`newq$$ = "Solve x^2+y^2== 1 && y+2x==0 ,for {x,y}"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$}, Typeset`chosen$$, 
        Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, 
        Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, 
        Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], 
     StandardForm],
    ImageSizeCache->{925., {180., 187.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     And[
      Not[Typeset`initdone$$ === True], 
      Not[Typeset`initdone$$ === FrontEnd`SuppressEvaluationHash[True]]], 
     Null; WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$}], 
       Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = FrontEnd`SuppressEvaluationHash[True]],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print", "WolframAlphaFullOutput",
 CellChangeTimes->{
  3.908995632200067*^9},ExpressionUUID->"9c4c750f-93d2-401f-adb6-\
ca32daa857dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryParseResults",
  DynamicModuleBox[{Typeset`q$$ = "Reduce  x^2+y^2== 1 && y+2x==0 ,for {x,y}",
    Typeset`newq$$ = "Reduce  x^2+y^2== 1 && y+2x==0 ,for {x,y}", 
   Typeset`chosen$$ = "Reduce[{x^2 + y^2 == 1, y + 2*x == 0}, {x, y}]", 
   Typeset`open$$ = False}, 
   PaneSelectorBox[{False->
    DynamicModuleBox[{Typeset`show$$ = False, Typeset`assumptionsQ$$ = False}, 
     TagBox[
      FrameBox[
       TagBox[GridBox[{
          {
           InputFieldBox[Dynamic[Typeset`newq$$], String,
            Appearance->None,
            BaseStyle->{"CalculateInput"},
            ContinuousAction->True,
            Enabled->True,
            FieldSize->{{1, 40}, {1, 
               DirectedInfinity[1]}},
            TrapSelection->False], 
           ItemBox[
            ButtonBox[
             PaneSelectorBox[{True->
              TagBox[
               TooltipBox[
                
                DynamicBox[FEPrivate`FrontEndResource[
                 "WABitmaps", "OrangeSquarePlus"],
                 ImageSizeCache->{14., {3., 11.}}],
                DynamicBox[
                 ToBoxes[
                  FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], 
                  StandardForm]]],
               Annotation[#, 
                Dynamic[
                 FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], 
                "Tooltip"]& ], False->
              TagBox[
               TooltipBox[
                
                DynamicBox[FEPrivate`FrontEndResource[
                 "WABitmaps", "GraySquarePlus"],
                 ImageSizeCache->{14., {3., 11.}}],
                DynamicBox[
                 ToBoxes[
                  FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], 
                  StandardForm]]],
               Annotation[#, 
                Dynamic[
                 FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], 
                "Tooltip"]& ]}, Dynamic[Typeset`show$$],
              ImageSize->All],
             Appearance->None,
             ButtonFunction:>(Quiet[
                WolframAlpha[]]; If[
                Or[
                 CurrentValue["OptionKey"], 
                 CurrentValue["AltKey"]], SelectionMove[
                  ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
                NotebookWrite[
                  ButtonNotebook[], 
                  Cell[
                  Typeset`newq$$, "WolframAlphaShort", FormatType -> 
                   "TextForm"], All], Typeset`open$$ = True; 
                WolframAlphaClient`Private`extrudeFromFastParse[
                 "Reduce  x^2+y^2== 1 && y+2x==0 ,for {x,y}", 
                  Defer[
                   
                   Reduce[{$CellContext`x^2 + $CellContext`y^2 == 
                    1, $CellContext`y + 2 $CellContext`x == 
                    0}, {$CellContext`x, $CellContext`y}]], "Fast parse"]; 
                Typeset`open$$ = False]),
             Evaluator->Automatic,
             Method->"Queued"],
            Alignment->{Right, Top},
            StripOnInput->False]},
          {
           PaneBox[
            TagBox[
             TooltipBox[
              ButtonBox[
               PaneSelectorBox[{False->
                StyleBox[
                 RowBox[{"Reduce", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", 
                    " ", 
                    RowBox[{
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"2", "*", "x"}]}], " ", "==", " ", "0"}]}], "}"}],
                    ",", " ", 
                   RowBox[{"{", 
                    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}],
                 StripOnInput->False,
                 NumberMarks->False], True->
                StyleBox[
                 RowBox[{"Reduce", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", 
                    " ", 
                    RowBox[{
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"2", "*", "x"}]}], " ", "==", " ", "0"}]}], "}"}],
                    ",", " ", 
                   RowBox[{"{", 
                    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}],
                 StripOnInput->False,
                 ShowSyntaxStyles->False,
                 NumberMarks->False,
                 FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[
                 CurrentValue["MouseOver"]],
                BaseStyle->{ShowStringCharacters -> True},
                FrameMargins->0,
                ImageSize->Automatic],
               Alignment->Left,
               Appearance->None,
               BaseStyle->{},
               ButtonFunction:>(SelectionMove[
                  ButtonNotebook[], All, ButtonCell]; NotebookWrite[
                  ButtonNotebook[], 
                  Cell[
                   BoxData[
                    RowBox[{"Reduce", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", 
                    " ", 
                    RowBox[{
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"2", "*", "x"}]}], " ", "==", " ", "0"}]}], "}"}],
                     ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]], "Input"], 
                  All]; SelectionMove[
                  ButtonNotebook[], After, CellContents]),
               Evaluator->Automatic,
               ImageSize->Automatic,
               Method->"Preemptive"],
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], 
                StandardForm]]],
             Annotation[#, 
              Dynamic[
               FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], 
              "Tooltip"]& ],
            AppearanceElements->{},
            BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0},
            ImageSize->{Automatic, {1, 100}},
            Scrollbars->{False, Automatic}], "\[SpanFromLeft]"}
         },
         AutoDelete->False,
         BaselinePosition->{1, 1},
         FrameStyle->GrayLevel[0.85],
         GridBoxAlignment->{"Columns" -> {{Left}}},
         GridBoxDividers->{
          "Columns" -> {{False}}, "Rows" -> {False, {True}, False}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"],
       Alignment->Top,
       Background->Dynamic[
         FEPrivate`If[
          FEPrivate`And[
           FEPrivate`SameQ[
            FEPrivate`Head[Typeset`newq$$], String], 
           FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], 
          RGBColor[1., 0.975, 0.95], 
          GrayLevel[1]]],
       BaselinePosition->Baseline,
       FrameStyle->GrayLevel[0.85],
       ImageSize->Automatic,
       RoundingRadius->5,
       StripOnInput->False],
      EventHandlerTag[{
       "MouseEntered" :> FEPrivate`Set[Typeset`show$$, True], "MouseExited" :> 
        FEPrivate`Set[Typeset`show$$, False], Method -> "Preemptive", 
        PassEventsDown -> Automatic, PassEventsUp -> True}]],
     DynamicModuleValues:>{}], True->
    TagBox[GridBox[{
       {
        DynamicModuleBox[{Typeset`show$$ = False, Typeset`assumptionsQ$$ = 
         False}, 
         TagBox[
          FrameBox[
           TagBox[GridBox[{
              {
               InputFieldBox[Dynamic[Typeset`newq$$], String,
                Appearance->None,
                BaseStyle->{"CalculateInput"},
                ContinuousAction->True,
                Enabled->True,
                FieldSize->{{1, 40}, {1, 
                   DirectedInfinity[1]}},
                TrapSelection->False], 
               ItemBox[
                ButtonBox[
                 PaneSelectorBox[{True->
                  TagBox[
                   TooltipBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "WABitmaps", "OrangeSquarePlus"]],
                    DynamicBox[
                    ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],
                     StandardForm]]],
                   Annotation[#, 
                    Dynamic[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "ShowAllResults"]], "Tooltip"]& ], False->
                  TagBox[
                   TooltipBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "WABitmaps", "GraySquarePlus"]],
                    DynamicBox[
                    ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],
                     StandardForm]]],
                   Annotation[#, 
                    Dynamic[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[
                  Typeset`show$$],
                  ImageSize->All],
                 Appearance->None,
                 ButtonFunction:>(Quiet[
                    WolframAlpha[]]; If[
                    Or[
                    CurrentValue["OptionKey"], 
                    CurrentValue["AltKey"]], SelectionMove[
                    ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
                    NotebookWrite[
                    ButtonNotebook[], 
                    Cell[
                    Typeset`newq$$, "WolframAlphaShort", FormatType -> 
                    "TextForm"], All], Typeset`open$$ = True; 
                    WolframAlphaClient`Private`extrudeFromFastParse[
                    "Reduce  x^2+y^2== 1 && y+2x==0 ,for {x,y}", 
                    Defer[
                    
                    Reduce[{$CellContext`x^2 + $CellContext`y^2 == 
                    1, $CellContext`y + 2 $CellContext`x == 
                    0}, {$CellContext`x, $CellContext`y}]], "Fast parse"]; 
                    Typeset`open$$ = False]),
                 Evaluator->Automatic,
                 Method->"Queued"],
                Alignment->{Right, Top},
                StripOnInput->False]},
              {
               PaneBox[
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   PaneSelectorBox[{False->
                    StyleBox[
                    RowBox[{"Reduce", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", 
                    " ", 
                    RowBox[{
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"2", "*", "x"}]}], " ", "==", " ", "0"}]}], "}"}],
                     ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}],
                    StripOnInput->False,
                    NumberMarks->False], True->
                    StyleBox[
                    RowBox[{"Reduce", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", 
                    " ", 
                    RowBox[{
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"2", "*", "x"}]}], " ", "==", " ", "0"}]}], "}"}],
                     ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}],
                    StripOnInput->False,
                    ShowSyntaxStyles->False,
                    NumberMarks->False,
                    FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    BaseStyle->{ShowStringCharacters -> True},
                    FrameMargins->0,
                    ImageSize->Automatic],
                   Alignment->Left,
                   Appearance->None,
                   BaseStyle->{},
                   ButtonFunction:>(SelectionMove[
                    ButtonNotebook[], All, ButtonCell]; NotebookWrite[
                    ButtonNotebook[], 
                    Cell[
                    BoxData[
                    RowBox[{"Reduce", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], " ", "+", " ", 
                    RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", 
                    " ", 
                    RowBox[{
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"2", "*", "x"}]}], " ", "==", " ", "0"}]}], "}"}],
                     ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]], "Input"], 
                    All]; SelectionMove[
                    ButtonNotebook[], After, CellContents]),
                   Evaluator->Automatic,
                   ImageSize->Automatic,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], 
                  "Tooltip"]& ],
                AppearanceElements->{},
                BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0},
                ImageSize->{Automatic, {1, 100}},
                Scrollbars->{False, Automatic}], "\[SpanFromLeft]"}
             },
             AutoDelete->False,
             BaselinePosition->{1, 1},
             FrameStyle->GrayLevel[0.85],
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxDividers->{
              "Columns" -> {{False}}, "Rows" -> {False, {True}, False}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Grid"],
           Alignment->Top,
           Background->Dynamic[
             FEPrivate`If[
              FEPrivate`And[
               FEPrivate`SameQ[
                FEPrivate`Head[Typeset`newq$$], String], 
               FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], 
              RGBColor[1., 0.975, 0.95], 
              GrayLevel[1]]],
           BaselinePosition->Baseline,
           FrameStyle->GrayLevel[0.85],
           ImageSize->Automatic,
           RoundingRadius->5,
           StripOnInput->False],
          
          EventHandlerTag[{
           "MouseEntered" :> FEPrivate`Set[Typeset`show$$, True], 
            "MouseExited" :> FEPrivate`Set[Typeset`show$$, False], Method -> 
            "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]],
         DynamicModuleValues:>{}]},
       {
        InterpretationBox[
         StyleBox[
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEExpressions", "NecklaceAnimator"][20]],
          AnimatorBoxOptions->{ImageSize->20}],
         Animator[Appearance -> "Necklace", ImageSize -> 20],
         BaseStyle->{"Deploy"}]}
      },
      BaselinePosition->{1, 1},
      DefaultBaseStyle->"Column",
      GridBoxAlignment->{"Columns" -> {{Left}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
     
     "Column"]}, Dynamic[
     TrueQ[Typeset`open$$]],
    BaseStyle->{Deployed -> True},
    ImageSize->Automatic],
   DynamicModuleValues:>{}],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "WolframAlphaShortInput",
 CellLabel->"In[92]:=",ExpressionUUID->"de515ac4-5196-4bdd-a3da-1fbe971f1240"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "\[Equal]", 
     RowBox[{"-", 
      FractionBox["1", 
       SqrtBox["5"]]}]}], "||", 
    RowBox[{"x", "\[Equal]", 
     FractionBox["1", 
      SqrtBox["5"]]}]}], ")"}], "&&", 
  RowBox[{"y", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "x"}]}]}]], "Output",
 CellChangeTimes->{{3.9037112875176487`*^9, 3.903711311230171*^9}, 
   3.903711752107298*^9, 3.903712062483599*^9, 3.90396405271279*^9, 
   3.903964354565744*^9, 3.904047890047677*^9, 3.904051602619553*^9, 
   3.904054810547703*^9, 3.904062535934934*^9, 3.904072648600897*^9, 
   3.904073362718192*^9, 3.904073405054111*^9, 3.9040741068818817`*^9, 
   3.90407812288367*^9, 3.904254028050446*^9, 3.9042562580979652`*^9, 
   3.904329935915103*^9, 3.904332013934165*^9, 3.904332100205439*^9, 
   3.904333938530736*^9, 3.904409689729364*^9, 3.904411388273385*^9, 
   3.90441678383314*^9, 3.904417143134685*^9, 3.906578660104239*^9, 
   3.906581717674169*^9, 3.90658249759916*^9, 3.906582840957596*^9, 
   3.908995632345909*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"d7f3cead-ad6d-4623-a191-a2671f15dde2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryParseResults",
  DynamicModuleBox[{Typeset`q$$ = "Tesla Stock March", Typeset`newq$$ = 
   "Tesla Stock March", Typeset`chosen$$ = 
   "Entity[\"Financial\", \"NASDAQ:TSLA\"][EntityProperty[\"Financial\", \
\"Close\", {\"Date\" -> DateObject[{2023, 3}]}]]", Typeset`open$$ = False}, 
   PaneSelectorBox[{False->
    DynamicModuleBox[{Typeset`show$$ = False, Typeset`assumptionsQ$$ = False}, 
     TagBox[
      FrameBox[
       TagBox[GridBox[{
          {
           InputFieldBox[Dynamic[Typeset`newq$$], String,
            Appearance->None,
            BaseStyle->{"CalculateInput"},
            ContinuousAction->True,
            Enabled->True,
            FieldSize->{{1, 40}, {1, 
               DirectedInfinity[1]}},
            TrapSelection->False], 
           ItemBox[
            ButtonBox[
             PaneSelectorBox[{True->
              TagBox[
               TooltipBox[
                
                DynamicBox[FEPrivate`FrontEndResource[
                 "WABitmaps", "OrangeSquarePlus"],
                 ImageSizeCache->{14., {3., 11.}}],
                DynamicBox[
                 ToBoxes[
                  FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], 
                  StandardForm]]],
               Annotation[#, 
                Dynamic[
                 FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], 
                "Tooltip"]& ], False->
              TagBox[
               TooltipBox[
                
                DynamicBox[FEPrivate`FrontEndResource[
                 "WABitmaps", "GraySquarePlus"],
                 ImageSizeCache->{14., {3., 11.}}],
                DynamicBox[
                 ToBoxes[
                  FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], 
                  StandardForm]]],
               Annotation[#, 
                Dynamic[
                 FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], 
                "Tooltip"]& ]}, Dynamic[Typeset`show$$],
              ImageSize->All],
             Appearance->None,
             ButtonFunction:>(Quiet[
                WolframAlpha[]]; If[
                Or[
                 CurrentValue["OptionKey"], 
                 CurrentValue["AltKey"]], SelectionMove[
                  ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
                NotebookWrite[
                  ButtonNotebook[], 
                  Cell[
                  Typeset`newq$$, "WolframAlphaShort", FormatType -> 
                   "TextForm"], All], Typeset`open$$ = True; 
                WolframAlphaClient`Private`extrudeFromFastParse[
                 "Tesla Stock March", 
                  Defer[
                   Entity["Financial", "NASDAQ:TSLA"][
                    EntityProperty[
                    "Financial", "Close", {
                    "Date" -> DateObject[{2023, 3}]}]]], "Fast parse"]; 
                Typeset`open$$ = False]),
             Evaluator->Automatic,
             Method->"Queued"],
            Alignment->{Right, Top},
            StripOnInput->False]},
          {
           PaneBox[
            TagBox[
             TooltipBox[
              ButtonBox[
               PaneSelectorBox[{False->
                StyleBox[
                 RowBox[{
                  TemplateBox[{"\"Tesla Motors\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Financial\"", ",", "\"NASDAQ:TSLA\""}], "]"}], 
                    "\"Entity[\\\"Financial\\\", \\\"NASDAQ:TSLA\\\"]\"", 
                    "\"financial entity\""},
                   "Entity"], "[", 
                  InterpretationBox[
                   
                   DynamicModuleBox[{EntityFramework`Formatting`Private`open =
                     False}, 
                    TemplateBox[{
                    
                    TemplateBox[{"\"closing price\""}, 
                    "ImplicitEntityPropertyBase"], 
                    GridBox[{{
                    TemplateBox[{
                    RowBox[{" ", "\"Date\""}], "\":\"", 
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityInfoRow"]}}, DefaultBaseStyle -> 
                    "GeneralizedEntityInfoGrid", 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}], 
                    Dynamic[EntityFramework`Formatting`Private`open], 
                    "\"EntityProperty[\\\"Financial\\\", \\\"Close\\\", \
{\\\"Date\\\" -> DateObject[{2023, 3}]}]\"", 
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityPropertySequence"]},
                    "ImplicitEntityPropertyToggle"]],
                   EntityProperty[
                   "Financial", "Close", {"Date" -> DateObject[{2023, 3}]}],
                   SelectWithContents->True], "]"}],
                 StripOnInput->False,
                 NumberMarks->False], True->
                StyleBox[
                 RowBox[{
                  TemplateBox[{"\"Tesla Motors\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Financial\"", ",", "\"NASDAQ:TSLA\""}], "]"}], 
                    "\"Entity[\\\"Financial\\\", \\\"NASDAQ:TSLA\\\"]\"", 
                    "\"financial entity\""},
                   "Entity"], "[", 
                  InterpretationBox[
                   
                   DynamicModuleBox[{EntityFramework`Formatting`Private`open =
                     False}, 
                    TemplateBox[{
                    
                    TemplateBox[{"\"closing price\""}, 
                    "ImplicitEntityPropertyBase"], 
                    GridBox[{{
                    TemplateBox[{
                    RowBox[{" ", "\"Date\""}], "\":\"", 
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityInfoRow"]}}, DefaultBaseStyle -> 
                    "GeneralizedEntityInfoGrid", 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}], 
                    Dynamic[EntityFramework`Formatting`Private`open], 
                    "\"EntityProperty[\\\"Financial\\\", \\\"Close\\\", \
{\\\"Date\\\" -> DateObject[{2023, 3}]}]\"", 
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityPropertySequence"]},
                    "ImplicitEntityPropertyToggle"]],
                   EntityProperty[
                   "Financial", "Close", {"Date" -> DateObject[{2023, 3}]}],
                   SelectWithContents->True], "]"}],
                 StripOnInput->False,
                 ShowSyntaxStyles->False,
                 NumberMarks->False,
                 FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[
                 CurrentValue["MouseOver"]],
                BaseStyle->{ShowStringCharacters -> True},
                FrameMargins->0,
                ImageSize->Automatic],
               Alignment->Left,
               Appearance->None,
               BaseStyle->{},
               ButtonFunction:>(SelectionMove[
                  ButtonNotebook[], All, ButtonCell]; NotebookWrite[
                  ButtonNotebook[], 
                  Cell[
                   BoxData[
                    RowBox[{
                    TemplateBox[{"\"Tesla Motors\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Financial\"", ",", "\"NASDAQ:TSLA\""}], "]"}], 
                    "\"Entity[\\\"Financial\\\", \\\"NASDAQ:TSLA\\\"]\"", 
                    "\"financial entity\""}, "Entity"], "[", 
                    InterpretationBox[
                    
                    DynamicModuleBox[{
                    EntityFramework`Formatting`Private`open = False}, 
                    TemplateBox[{
                    
                    TemplateBox[{"\"closing price\""}, 
                    "ImplicitEntityPropertyBase"], 
                    GridBox[{{
                    TemplateBox[{
                    RowBox[{" ", "\"Date\""}], "\":\"", 
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityInfoRow"]}}, DefaultBaseStyle -> 
                    "GeneralizedEntityInfoGrid", 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}], 
                    Dynamic[EntityFramework`Formatting`Private`open], 
                    "\"EntityProperty[\\\"Financial\\\", \\\"Close\\\", \
{\\\"Date\\\" -> DateObject[{2023, 3}]}]\"", 
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityPropertySequence"]}, 
                    "ImplicitEntityPropertyToggle"]], 
                    EntityProperty[
                    "Financial", "Close", {"Date" -> DateObject[{2023, 3}]}], 
                    SelectWithContents -> True], "]"}]], "Input"], All]; 
                SelectionMove[
                  ButtonNotebook[], After, CellContents]),
               Evaluator->Automatic,
               ImageSize->Automatic,
               Method->"Preemptive"],
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], 
                StandardForm]]],
             Annotation[#, 
              Dynamic[
               FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], 
              "Tooltip"]& ],
            AppearanceElements->{},
            BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0},
            ImageSize->{Automatic, {1, 100}},
            Scrollbars->{False, Automatic}], "\[SpanFromLeft]"}
         },
         AutoDelete->False,
         BaselinePosition->{1, 1},
         FrameStyle->GrayLevel[0.85],
         GridBoxAlignment->{"Columns" -> {{Left}}},
         GridBoxDividers->{
          "Columns" -> {{False}}, "Rows" -> {False, {True}, False}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"],
       Alignment->Top,
       Background->Dynamic[
         FEPrivate`If[
          FEPrivate`And[
           FEPrivate`SameQ[
            FEPrivate`Head[Typeset`newq$$], String], 
           FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], 
          RGBColor[1., 0.975, 0.95], 
          GrayLevel[1]]],
       BaselinePosition->Baseline,
       FrameStyle->GrayLevel[0.85],
       ImageSize->Automatic,
       RoundingRadius->5,
       StripOnInput->False],
      EventHandlerTag[{
       "MouseEntered" :> FEPrivate`Set[Typeset`show$$, True], "MouseExited" :> 
        FEPrivate`Set[Typeset`show$$, False], Method -> "Preemptive", 
        PassEventsDown -> Automatic, PassEventsUp -> True}]],
     DynamicModuleValues:>{}], True->
    TagBox[GridBox[{
       {
        DynamicModuleBox[{Typeset`show$$ = False, Typeset`assumptionsQ$$ = 
         False}, 
         TagBox[
          FrameBox[
           TagBox[GridBox[{
              {
               InputFieldBox[Dynamic[Typeset`newq$$], String,
                Appearance->None,
                BaseStyle->{"CalculateInput"},
                ContinuousAction->True,
                Enabled->True,
                FieldSize->{{1, 40}, {1, 
                   DirectedInfinity[1]}},
                TrapSelection->False], 
               ItemBox[
                ButtonBox[
                 PaneSelectorBox[{True->
                  TagBox[
                   TooltipBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "WABitmaps", "OrangeSquarePlus"]],
                    DynamicBox[
                    ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],
                     StandardForm]]],
                   Annotation[#, 
                    Dynamic[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "ShowAllResults"]], "Tooltip"]& ], False->
                  TagBox[
                   TooltipBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "WABitmaps", "GraySquarePlus"]],
                    DynamicBox[
                    ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],
                     StandardForm]]],
                   Annotation[#, 
                    Dynamic[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[
                  Typeset`show$$],
                  ImageSize->All],
                 Appearance->None,
                 ButtonFunction:>(Quiet[
                    WolframAlpha[]]; If[
                    Or[
                    CurrentValue["OptionKey"], 
                    CurrentValue["AltKey"]], SelectionMove[
                    ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
                    NotebookWrite[
                    ButtonNotebook[], 
                    Cell[
                    Typeset`newq$$, "WolframAlphaShort", FormatType -> 
                    "TextForm"], All], Typeset`open$$ = True; 
                    WolframAlphaClient`Private`extrudeFromFastParse[
                    "Tesla Stock March", 
                    Defer[
                    Entity["Financial", "NASDAQ:TSLA"][
                    EntityProperty[
                    "Financial", "Close", {
                    "Date" -> DateObject[{2023, 3}]}]]], "Fast parse"]; 
                    Typeset`open$$ = False]),
                 Evaluator->Automatic,
                 Method->"Queued"],
                Alignment->{Right, Top},
                StripOnInput->False]},
              {
               PaneBox[
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   PaneSelectorBox[{False->
                    StyleBox[
                    RowBox[{
                    TemplateBox[{"\"Tesla Motors\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Financial\"", ",", "\"NASDAQ:TSLA\""}], "]"}], 
                    "\"Entity[\\\"Financial\\\", \\\"NASDAQ:TSLA\\\"]\"", 
                    "\"financial entity\""},
                    "Entity"], "[", 
                    InterpretationBox[
                    
                    DynamicModuleBox[{
                    EntityFramework`Formatting`Private`open = False}, 
                    TemplateBox[{
                    
                    TemplateBox[{"\"closing price\""}, 
                    "ImplicitEntityPropertyBase"], 
                    GridBox[{{
                    TemplateBox[{
                    RowBox[{" ", "\"Date\""}], "\":\"", 
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityInfoRow"]}}, DefaultBaseStyle -> 
                    "GeneralizedEntityInfoGrid", 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}], 
                    Dynamic[EntityFramework`Formatting`Private`open], 
                    "\"EntityProperty[\\\"Financial\\\", \\\"Close\\\", \
{\\\"Date\\\" -> DateObject[{2023, 3}]}]\"", 
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityPropertySequence"]},
                    "ImplicitEntityPropertyToggle"]],
                    EntityProperty[
                    "Financial", "Close", {"Date" -> DateObject[{2023, 3}]}],
                    SelectWithContents->True], "]"}],
                    StripOnInput->False,
                    NumberMarks->False], True->
                    StyleBox[
                    RowBox[{
                    TemplateBox[{"\"Tesla Motors\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Financial\"", ",", "\"NASDAQ:TSLA\""}], "]"}], 
                    "\"Entity[\\\"Financial\\\", \\\"NASDAQ:TSLA\\\"]\"", 
                    "\"financial entity\""},
                    "Entity"], "[", 
                    InterpretationBox[
                    
                    DynamicModuleBox[{
                    EntityFramework`Formatting`Private`open = False}, 
                    TemplateBox[{
                    
                    TemplateBox[{"\"closing price\""}, 
                    "ImplicitEntityPropertyBase"], 
                    GridBox[{{
                    TemplateBox[{
                    RowBox[{" ", "\"Date\""}], "\":\"", 
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityInfoRow"]}}, DefaultBaseStyle -> 
                    "GeneralizedEntityInfoGrid", 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}], 
                    Dynamic[EntityFramework`Formatting`Private`open], 
                    "\"EntityProperty[\\\"Financial\\\", \\\"Close\\\", \
{\\\"Date\\\" -> DateObject[{2023, 3}]}]\"", 
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityPropertySequence"]},
                    "ImplicitEntityPropertyToggle"]],
                    EntityProperty[
                    "Financial", "Close", {"Date" -> DateObject[{2023, 3}]}],
                    SelectWithContents->True], "]"}],
                    StripOnInput->False,
                    ShowSyntaxStyles->False,
                    NumberMarks->False,
                    FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    BaseStyle->{ShowStringCharacters -> True},
                    FrameMargins->0,
                    ImageSize->Automatic],
                   Alignment->Left,
                   Appearance->None,
                   BaseStyle->{},
                   ButtonFunction:>(SelectionMove[
                    ButtonNotebook[], All, ButtonCell]; NotebookWrite[
                    ButtonNotebook[], 
                    Cell[
                    BoxData[
                    RowBox[{
                    TemplateBox[{"\"Tesla Motors\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Financial\"", ",", "\"NASDAQ:TSLA\""}], "]"}], 
                    "\"Entity[\\\"Financial\\\", \\\"NASDAQ:TSLA\\\"]\"", 
                    "\"financial entity\""}, "Entity"], "[", 
                    InterpretationBox[
                    
                    DynamicModuleBox[{
                    EntityFramework`Formatting`Private`open = False}, 
                    TemplateBox[{
                    
                    TemplateBox[{"\"closing price\""}, 
                    "ImplicitEntityPropertyBase"], 
                    GridBox[{{
                    TemplateBox[{
                    RowBox[{" ", "\"Date\""}], "\":\"", 
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityInfoRow"]}}, DefaultBaseStyle -> 
                    "GeneralizedEntityInfoGrid", 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}], 
                    Dynamic[EntityFramework`Formatting`Private`open], 
                    "\"EntityProperty[\\\"Financial\\\", \\\"Close\\\", \
{\\\"Date\\\" -> DateObject[{2023, 3}]}]\"", 
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{"\"Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3"}], "}"}], ",", "\"Month\""}], 
                    "]"}]}, "DateObject", Editable -> False]}, 
                    "ImplicitEntityPropertySequence"]}, 
                    "ImplicitEntityPropertyToggle"]], 
                    EntityProperty[
                    "Financial", "Close", {"Date" -> DateObject[{2023, 3}]}], 
                    SelectWithContents -> True], "]"}]], "Input"], All]; 
                    SelectionMove[
                    ButtonNotebook[], After, CellContents]),
                   Evaluator->Automatic,
                   ImageSize->Automatic,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], 
                  "Tooltip"]& ],
                AppearanceElements->{},
                BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0},
                ImageSize->{Automatic, {1, 100}},
                Scrollbars->{False, Automatic}], "\[SpanFromLeft]"}
             },
             AutoDelete->False,
             BaselinePosition->{1, 1},
             FrameStyle->GrayLevel[0.85],
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxDividers->{
              "Columns" -> {{False}}, "Rows" -> {False, {True}, False}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Grid"],
           Alignment->Top,
           Background->Dynamic[
             FEPrivate`If[
              FEPrivate`And[
               FEPrivate`SameQ[
                FEPrivate`Head[Typeset`newq$$], String], 
               FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], 
              RGBColor[1., 0.975, 0.95], 
              GrayLevel[1]]],
           BaselinePosition->Baseline,
           FrameStyle->GrayLevel[0.85],
           ImageSize->Automatic,
           RoundingRadius->5,
           StripOnInput->False],
          
          EventHandlerTag[{
           "MouseEntered" :> FEPrivate`Set[Typeset`show$$, True], 
            "MouseExited" :> FEPrivate`Set[Typeset`show$$, False], Method -> 
            "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]],
         DynamicModuleValues:>{}]},
       {
        InterpretationBox[
         StyleBox[
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEExpressions", "NecklaceAnimator"][20]],
          AnimatorBoxOptions->{ImageSize->20}],
         Animator[Appearance -> "Necklace", ImageSize -> 20],
         BaseStyle->{"Deploy"}]}
      },
      BaselinePosition->{1, 1},
      DefaultBaseStyle->"Column",
      GridBoxAlignment->{"Columns" -> {{Left}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
     
     "Column"]}, Dynamic[
     TrueQ[Typeset`open$$]],
    BaseStyle->{Deployed -> True},
    ImageSize->Automatic],
   DynamicModuleValues:>{}],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "WolframAlphaShortInput",
 CellLabel->"In[93]:=",ExpressionUUID->"8adf8e96-11e9-40b6-91ef-3598d4a4759f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["TimeSeries",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{}, {{}, {}, {
                GrayLevel[0.5], 
                PointSize[0.125], 
                AbsoluteThickness[1.5], 
                StyleBox[
                 LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7Fl11LwinD7aQwUcXn2Jtl8b9ArK53Bw3utt
q3f4M5Qv4CC+Otg/K43RAcIXcfi+f0F40nsYX8JBX1jtBbsrL5Qv45DtoBvW
xcwP5Ss4NFwMEp60GWafksOc359Whf/9BeWrOARoR64NnnwNyldzMHERNjG5
+no/hK/hIKRdVZBY8w3K13LIMJWbeIH9L5Sv4zDLV7txKvsXKF/PoWzi1MhL
TFwHIHwDB/cgkWNzBTmgfEOHQ2p/W4VucUL5Rg7G79Iu8t1mg/KNHcrd9WVC
ixmhfBOHrX+2zedZ8B9qvqnDPJ3j61kKGKDyZg5FiwwE9lTA7DN3qN+4vmmS
siiUb+HAtbzy3bJ4ISjf0oFzYux88dMCUL6VQ5zaARf5axJQvrWDmCZL36VN
UlC+jYPfBC+BlBJxKN/WoX+K14Vt8jJQvp3DgYTiXbPeiUD59g48fy+4bYoW
g/IdHL4IXz2XEgqVb3BwONa2ilHOixsq7+jg3yuU9L5AECrv6NBaqXjidDLM
vU4OTZOznfNi2KHyTg4WG+6H/hWBhY+zQ5qveFfD7s+Q8Glwdviw+EOTxY2j
0Ph0cVj18NqRC96XIfwGF4dlb2fpWLbB0perwzqzL3Nnz/wElXd1YCgOSXoi
cRUq7+ZgkHHN7dvHG1Dz3RxO/X996GnXG2h8uDusTTv5fqPlTai8u4O3Uoqa
3YkrUP0eDlu+ZYpfimJwgMh7OPwpNvZ9PpcDwmfwdPgt/Kj+tbigAwD0Q951

                  "]], {FontFamily -> "Arial"}, StripOnInput -> False]}}, {}},
              AspectRatio -> 1, Axes -> {False, False}, 
             AxesLabel -> {None, None}, AxesOrigin -> {0., 0.}, Background -> 
             GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
             DisplayFunction -> Identity, 
             Frame -> {{True, True}, {True, True}}, 
             FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
             Directive[
               Thickness[Tiny], 
               GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], LabelStyle -> {FontFamily -> "Arial"}, 
             Method -> {"ScalingFunctions" -> None}, 
             PlotRange -> {{0., 50.}, {-7.030970816185017, 
              4.273359296964368}}, PlotRangeClipping -> True, 
             PlotRangePadding -> {{1, 1}, {1, 1}}, 
             Ticks -> {Automatic, Automatic}], 
            GridBox[{{
               TagBox[
                TemplateBox[{
                  RowBox[{
                    TagBox["\"Time: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"01 Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3", ",", "1"}], "}"}], ",", 
                    "\"Day\"", ",", "\"Gregorian\"", ",", "None", ",", 
                    "\"SmearedUTC\"", ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"\"Day\"", ",", "\" \"", ",", 
                    "\"MonthNameShort\"", ",", "\" \"", ",", "\"Year\""}], 
                    "}"}]}], "]"}]}, "DateObject", Editable -> False], 
                    "SummaryItem"]}], 
                  RowBox[{
                    TagBox["\" to \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"31 Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3", ",", "31"}], "}"}], ",", 
                    "\"Day\"", ",", "\"Gregorian\"", ",", "None", ",", 
                    "\"SmearedUTC\"", ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"\"Day\"", ",", "\" \"", ",", 
                    "\"MonthNameShort\"", ",", "\" \"", ",", "\"Year\""}], 
                    "}"}]}], "]"}]}, "DateObject", Editable -> False], 
                    "SummaryItem"]}]}, "RowDefault"], "SummaryItem"], 
               "\[SpanFromLeft]"}, {
               RowBox[{
                 TagBox["\"Data points: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["23", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{}, {{}, {}, {
                GrayLevel[0.5], 
                PointSize[0.125], 
                AbsoluteThickness[1.5], 
                StyleBox[
                 LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7Fl11LwinD7aQwUcXn2Jtl8b9ArK53Bw3utt
q3f4M5Qv4CC+Otg/K43RAcIXcfi+f0F40nsYX8JBX1jtBbsrL5Qv45DtoBvW
xcwP5Ss4NFwMEp60GWafksOc359Whf/9BeWrOARoR64NnnwNyldzMHERNjG5
+no/hK/hIKRdVZBY8w3K13LIMJWbeIH9L5Sv4zDLV7txKvsXKF/PoWzi1MhL
TFwHIHwDB/cgkWNzBTmgfEOHQ2p/W4VucUL5Rg7G79Iu8t1mg/KNHcrd9WVC
ixmhfBOHrX+2zedZ8B9qvqnDPJ3j61kKGKDyZg5FiwwE9lTA7DN3qN+4vmmS
siiUb+HAtbzy3bJ4ISjf0oFzYux88dMCUL6VQ5zaARf5axJQvrWDmCZL36VN
UlC+jYPfBC+BlBJxKN/WoX+K14Vt8jJQvp3DgYTiXbPeiUD59g48fy+4bYoW
g/IdHL4IXz2XEgqVb3BwONa2ilHOixsq7+jg3yuU9L5AECrv6NBaqXjidDLM
vU4OTZOznfNi2KHyTg4WG+6H/hWBhY+zQ5qveFfD7s+Q8Glwdviw+EOTxY2j
0Ph0cVj18NqRC96XIfwGF4dlb2fpWLbB0perwzqzL3Nnz/wElXd1YCgOSXoi
cRUq7+ZgkHHN7dvHG1Dz3RxO/X996GnXG2h8uDusTTv5fqPlTai8u4O3Uoqa
3YkrUP0eDlu+ZYpfimJwgMh7OPwpNvZ9PpcDwmfwdPgt/Kj+tbigAwD0Q951

                  "]], {FontFamily -> "Arial"}, StripOnInput -> False]}}, {}},
              AspectRatio -> 1, Axes -> {False, False}, 
             AxesLabel -> {None, None}, AxesOrigin -> {0., 0.}, Background -> 
             GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
             DisplayFunction -> Identity, 
             Frame -> {{True, True}, {True, True}}, 
             FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
             Directive[
               Thickness[Tiny], 
               GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], LabelStyle -> {FontFamily -> "Arial"}, 
             Method -> {"ScalingFunctions" -> None}, 
             PlotRange -> {{0., 50.}, {-7.030970816185017, 
              4.273359296964368}}, PlotRangeClipping -> True, 
             PlotRangePadding -> {{1, 1}, {1, 1}}, 
             Ticks -> {Automatic, Automatic}], 
            GridBox[{{
               TagBox[
                TemplateBox[{
                  RowBox[{
                    TagBox["\"Time: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"01 Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3", ",", "1"}], "}"}], ",", 
                    "\"Day\"", ",", "\"Gregorian\"", ",", "None", ",", 
                    "\"SmearedUTC\"", ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"\"Day\"", ",", "\" \"", ",", 
                    "\"MonthNameShort\"", ",", "\" \"", ",", "\"Year\""}], 
                    "}"}]}], "]"}]}, "DateObject", Editable -> False], 
                    "SummaryItem"]}], 
                  RowBox[{
                    TagBox["\" to \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"31 Mar 2023\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2023", ",", "3", ",", "31"}], "}"}], ",", 
                    "\"Day\"", ",", "\"Gregorian\"", ",", "None", ",", 
                    "\"SmearedUTC\"", ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"\"Day\"", ",", "\" \"", ",", 
                    "\"MonthNameShort\"", ",", "\" \"", ",", "\"Year\""}], 
                    "}"}]}], "]"}]}, "DateObject", Editable -> False], 
                    "SummaryItem"]}]}, "RowDefault"], "SummaryItem"], 
               "\[SpanFromLeft]"}, {
               RowBox[{
                 TagBox["\"Data points: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["23", "SummaryItem"]}], "\[SpanFromLeft]"}, {
               RowBox[{
                 TagBox["\"Regular: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["False", "SummaryItem"]}], 
               RowBox[{
                 TagBox["\"Output dimension: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Metadata: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["None", "SummaryItem"]}], 
               RowBox[{
                 TagBox["\"Minimum increment: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"1", ",", "\"Day\""}], "}"}], "SummaryItem"]}]}, {
              
               TagBox["\"\"", "SummaryItem"], 
               RowBox[{
                 TagBox["\"Resampling: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"\"Interpolation\"", ",", "1"}], "}"}], 
                  "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  TemporalData[TimeSeries, {{{
      Quantity[202.77000427246094`, "USDollars"], 
      Quantity[190.89999389648438`, "USDollars"], 
      Quantity[197.7899932861328, "USDollars"], 
      Quantity[193.80999755859375`, "USDollars"], 
      Quantity[187.7100067138672, "USDollars"], 
      Quantity[182., "USDollars"], 
      Quantity[172.9199981689453, "USDollars"], 
      Quantity[173.44000244140625`, "USDollars"], 
      Quantity[174.47999572753906`, "USDollars"], 
      Quantity[183.25999450683594`, "USDollars"], 
      Quantity[180.4499969482422, "USDollars"], 
      Quantity[184.1300048828125, "USDollars"], 
      Quantity[180.1300048828125, "USDollars"], 
      Quantity[183.25, "USDollars"], 
      Quantity[197.5800018310547, "USDollars"], 
      Quantity[191.14999389648438`, "USDollars"], 
      Quantity[192.22000122070312`, "USDollars"], 
      Quantity[190.41000366210938`, "USDollars"], 
      Quantity[191.80999755859375`, "USDollars"], 
      Quantity[189.19000244140625`, "USDollars"], 
      Quantity[193.8800048828125, "USDollars"], 
      Quantity[195.27999877929688`, "USDollars"], 
      Quantity[207.4600067138672, "USDollars"]}}, {{{3886617600, 3886704000, 
    3886790400, 3887049600, 3887136000, 3887222400, 3887308800, 3887395200, 
    3887654400, 3887740800, 3887827200, 3887913600, 3888000000, 3888259200, 
    3888345600, 3888432000, 3888518400, 3888604800, 3888864000, 3888950400, 
    3889036800, 3889123200, 3889209600}}}, 1, {"Continuous", 1}, {
    "Discrete", 1}, 1, {
    ValueDimensions -> 1, DateFunction -> Automatic, 
     ResamplingMethod -> {"Interpolation", InterpolationOrder -> 1}}}, True, 
   12.],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.90371166292372*^9, {3.903711732310765*^9, 3.903711752678812*^9}, 
   3.903712063099496*^9, 3.903964055525515*^9, 3.903964355854063*^9, 
   3.90404789096386*^9, 3.904051603145276*^9, 3.904054811063109*^9, 
   3.904062536475174*^9, 3.90407264912364*^9, 3.904073363283732*^9, 
   3.904073405598754*^9, 3.9040741073937693`*^9, 3.9040781234095902`*^9, 
   3.904254028917808*^9, 3.904256258575194*^9, 3.90432993604617*^9, 
   3.904332014407556*^9, 3.904332100686512*^9, 3.904333939295219*^9, 
   3.904409690142244*^9, 3.9044113887544937`*^9, 3.904416784314133*^9, 
   3.904417143629385*^9, 3.9065786609327087`*^9, 3.906581718123172*^9, 
   3.9065824977055683`*^9, 3.906582841439788*^9, 3.908995632862244*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"7127f233-0ff0-40ab-8154-e4796844e474"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryParseResults",
  DynamicModuleBox[{Typeset`q$$ = "Population of Australia", Typeset`newq$$ = 
   "Population of Australia", Typeset`chosen$$ = 
   "Entity[\"Country\", \"Australia\"][EntityProperty[\"Country\", \
\"Population\"]]", Typeset`open$$ = False}, 
   PaneSelectorBox[{False->
    DynamicModuleBox[{Typeset`show$$ = False, Typeset`assumptionsQ$$ = True}, 
     
     TagBox[
      FrameBox[
       TagBox[GridBox[{
          {
           InputFieldBox[Dynamic[Typeset`newq$$], String,
            Appearance->None,
            BaseStyle->{"CalculateInput"},
            ContinuousAction->True,
            Enabled->True,
            FieldSize->{{1, 40}, {1, 
               DirectedInfinity[1]}},
            TrapSelection->False], 
           ButtonBox[
            TagBox[
             TooltipBox[
              StyleBox["\<\"\[RightGuillemet]\"\>",
               StripOnInput->False,
               LineColor->RGBColor[1, 0.5, 0],
               FrontFaceColor->RGBColor[1, 0.5, 0],
               BackFaceColor->RGBColor[1, 0.5, 0],
               GraphicsColor->RGBColor[1, 0.5, 0],
               FontColor->RGBColor[1, 0.5, 0]],
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource[
                "WAStrings", "InterpretationAssumptions"], StandardForm]]],
             Annotation[#, 
              Dynamic[
               FEPrivate`FrontEndResource[
               "WAStrings", "InterpretationAssumptions"]], "Tooltip"]& ],
            Appearance->None,
            BaselinePosition->Baseline,
            ButtonFunction:>(Quiet[
               WolframAlpha[]]; Typeset`open$$ = True; 
             WolframAlphaClient`Private`extrudeFromFastParse[
              "Population of Australia", 
               Defer[
                Entity["Country", "Australia"][
                 EntityProperty["Country", "Population"]]], "Fast parse"]; 
             Typeset`open$$ = False),
            ContentPadding->False,
            Evaluator->Automatic,
            Method->"Queued"], 
           ItemBox[
            ButtonBox[
             PaneSelectorBox[{True->
              TagBox[
               TooltipBox[
                
                DynamicBox[FEPrivate`FrontEndResource[
                 "WABitmaps", "OrangeSquarePlus"],
                 ImageSizeCache->{14., {3., 11.}}],
                DynamicBox[
                 ToBoxes[
                  FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], 
                  StandardForm]]],
               Annotation[#, 
                Dynamic[
                 FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], 
                "Tooltip"]& ], False->
              TagBox[
               TooltipBox[
                
                DynamicBox[FEPrivate`FrontEndResource[
                 "WABitmaps", "GraySquarePlus"],
                 ImageSizeCache->{14., {3., 11.}}],
                DynamicBox[
                 ToBoxes[
                  FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], 
                  StandardForm]]],
               Annotation[#, 
                Dynamic[
                 FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], 
                "Tooltip"]& ]}, Dynamic[Typeset`show$$],
              ImageSize->All],
             Appearance->None,
             ButtonFunction:>(Quiet[
                WolframAlpha[]]; If[
                Or[
                 CurrentValue["OptionKey"], 
                 CurrentValue["AltKey"]], SelectionMove[
                  ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
                NotebookWrite[
                  ButtonNotebook[], 
                  Cell[
                  Typeset`newq$$, "WolframAlphaShort", FormatType -> 
                   "TextForm"], All], Typeset`open$$ = True; 
                WolframAlphaClient`Private`extrudeFromFastParse[
                 "Population of Australia", 
                  Defer[
                   Entity["Country", "Australia"][
                    EntityProperty["Country", "Population"]]], "Fast parse"]; 
                Typeset`open$$ = False]),
             Evaluator->Automatic,
             Method->"Queued"],
            Alignment->{Right, Top},
            StripOnInput->False]},
          {
           PaneBox[
            TagBox[
             TooltipBox[
              ButtonBox[
               PaneSelectorBox[{False->
                StyleBox[
                 RowBox[{
                  TemplateBox[{"\"Australia\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"", 
                    "\"country\""},
                   "Entity"], "[", 
                  TemplateBox[{"\"population\"", 
                    RowBox[{"EntityProperty", "[", 
                    RowBox[{"\"Country\"", ",", "\"Population\""}], "]"}], 
                    "\"EntityProperty[\\\"Country\\\", \\\"Population\\\"]\""},
                   "EntityProperty"], "]"}],
                 StripOnInput->False,
                 NumberMarks->False], True->
                StyleBox[
                 RowBox[{
                  TemplateBox[{"\"Australia\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"", 
                    "\"country\""},
                   "Entity"], "[", 
                  TemplateBox[{"\"population\"", 
                    RowBox[{"EntityProperty", "[", 
                    RowBox[{"\"Country\"", ",", "\"Population\""}], "]"}], 
                    "\"EntityProperty[\\\"Country\\\", \\\"Population\\\"]\""},
                   "EntityProperty"], "]"}],
                 StripOnInput->False,
                 ShowSyntaxStyles->False,
                 NumberMarks->False,
                 FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[
                 CurrentValue["MouseOver"]],
                BaseStyle->{ShowStringCharacters -> True},
                FrameMargins->0,
                ImageSize->Automatic],
               Alignment->Left,
               Appearance->None,
               BaseStyle->{},
               ButtonFunction:>(SelectionMove[
                  ButtonNotebook[], All, ButtonCell]; NotebookWrite[
                  ButtonNotebook[], 
                  Cell[
                   BoxData[
                    RowBox[{
                    TemplateBox[{"\"Australia\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"", 
                    "\"country\""}, "Entity"], "[", 
                    TemplateBox[{"\"population\"", 
                    RowBox[{"EntityProperty", "[", 
                    RowBox[{"\"Country\"", ",", "\"Population\""}], "]"}], 
                    "\"EntityProperty[\\\"Country\\\", \
\\\"Population\\\"]\""}, "EntityProperty"], "]"}]], "Input"], All]; 
                SelectionMove[
                  ButtonNotebook[], After, CellContents]),
               Evaluator->Automatic,
               ImageSize->Automatic,
               Method->"Preemptive"],
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], 
                StandardForm]]],
             Annotation[#, 
              Dynamic[
               FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], 
              "Tooltip"]& ],
            AppearanceElements->{},
            BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0},
            ImageSize->{Automatic, {1, 100}},
            Scrollbars->{False, Automatic}], "\[SpanFromLeft]", 
           "\[SpanFromLeft]"}
         },
         AutoDelete->False,
         BaselinePosition->{1, 1},
         FrameStyle->GrayLevel[0.85],
         GridBoxAlignment->{"Columns" -> {{Left}}},
         GridBoxDividers->{
          "Columns" -> {{False}}, "Rows" -> {False, {True}, False}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"],
       Alignment->Top,
       Background->Dynamic[
         FEPrivate`If[
          FEPrivate`And[
           FEPrivate`SameQ[
            FEPrivate`Head[Typeset`newq$$], String], 
           FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], 
          RGBColor[1., 0.975, 0.95], 
          GrayLevel[1]]],
       BaselinePosition->Baseline,
       FrameStyle->GrayLevel[0.85],
       ImageSize->Automatic,
       RoundingRadius->5,
       StripOnInput->False],
      EventHandlerTag[{
       "MouseEntered" :> FEPrivate`Set[Typeset`show$$, True], "MouseExited" :> 
        FEPrivate`Set[Typeset`show$$, False], Method -> "Preemptive", 
        PassEventsDown -> Automatic, PassEventsUp -> True}]],
     DynamicModuleValues:>{}], True->
    TagBox[GridBox[{
       {
        DynamicModuleBox[{Typeset`show$$ = False, Typeset`assumptionsQ$$ = 
         True}, 
         TagBox[
          FrameBox[
           TagBox[GridBox[{
              {
               InputFieldBox[Dynamic[Typeset`newq$$], String,
                Appearance->None,
                BaseStyle->{"CalculateInput"},
                ContinuousAction->True,
                Enabled->True,
                FieldSize->{{1, 40}, {1, 
                   DirectedInfinity[1]}},
                TrapSelection->False], 
               ButtonBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\"\[RightGuillemet]\"\>",
                   StripOnInput->False,
                   LineColor->RGBColor[1, 0.5, 0],
                   FrontFaceColor->RGBColor[1, 0.5, 0],
                   BackFaceColor->RGBColor[1, 0.5, 0],
                   GraphicsColor->RGBColor[1, 0.5, 0],
                   FontColor->RGBColor[1, 0.5, 0]],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "InterpretationAssumptions"], StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource[
                   "WAStrings", "InterpretationAssumptions"]], "Tooltip"]& ],
                Appearance->None,
                BaselinePosition->Baseline,
                ButtonFunction:>(Quiet[
                   WolframAlpha[]]; Typeset`open$$ = True; 
                 WolframAlphaClient`Private`extrudeFromFastParse[
                  "Population of Australia", 
                   Defer[
                    Entity["Country", "Australia"][
                    EntityProperty["Country", "Population"]]], "Fast parse"]; 
                 Typeset`open$$ = False),
                ContentPadding->False,
                Evaluator->Automatic,
                Method->"Queued"], 
               ItemBox[
                ButtonBox[
                 PaneSelectorBox[{True->
                  TagBox[
                   TooltipBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "WABitmaps", "OrangeSquarePlus"]],
                    DynamicBox[
                    ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],
                     StandardForm]]],
                   Annotation[#, 
                    Dynamic[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "ShowAllResults"]], "Tooltip"]& ], False->
                  TagBox[
                   TooltipBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "WABitmaps", "GraySquarePlus"]],
                    DynamicBox[
                    ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],
                     StandardForm]]],
                   Annotation[#, 
                    Dynamic[
                    FEPrivate`FrontEndResource[
                    "WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[
                  Typeset`show$$],
                  ImageSize->All],
                 Appearance->None,
                 ButtonFunction:>(Quiet[
                    WolframAlpha[]]; If[
                    Or[
                    CurrentValue["OptionKey"], 
                    CurrentValue["AltKey"]], SelectionMove[
                    ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
                    NotebookWrite[
                    ButtonNotebook[], 
                    Cell[
                    Typeset`newq$$, "WolframAlphaShort", FormatType -> 
                    "TextForm"], All], Typeset`open$$ = True; 
                    WolframAlphaClient`Private`extrudeFromFastParse[
                    "Population of Australia", 
                    Defer[
                    Entity["Country", "Australia"][
                    EntityProperty["Country", "Population"]]], "Fast parse"]; 
                    Typeset`open$$ = False]),
                 Evaluator->Automatic,
                 Method->"Queued"],
                Alignment->{Right, Top},
                StripOnInput->False]},
              {
               PaneBox[
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   PaneSelectorBox[{False->
                    StyleBox[
                    RowBox[{
                    TemplateBox[{"\"Australia\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"", 
                    "\"country\""},
                    "Entity"], "[", 
                    TemplateBox[{"\"population\"", 
                    RowBox[{"EntityProperty", "[", 
                    RowBox[{"\"Country\"", ",", "\"Population\""}], "]"}], 
                    "\"EntityProperty[\\\"Country\\\", \\\"Population\\\"]\""},
                    "EntityProperty"], "]"}],
                    StripOnInput->False,
                    NumberMarks->False], True->
                    StyleBox[
                    RowBox[{
                    TemplateBox[{"\"Australia\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"", 
                    "\"country\""},
                    "Entity"], "[", 
                    TemplateBox[{"\"population\"", 
                    RowBox[{"EntityProperty", "[", 
                    RowBox[{"\"Country\"", ",", "\"Population\""}], "]"}], 
                    "\"EntityProperty[\\\"Country\\\", \\\"Population\\\"]\""},
                    "EntityProperty"], "]"}],
                    StripOnInput->False,
                    ShowSyntaxStyles->False,
                    NumberMarks->False,
                    FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    BaseStyle->{ShowStringCharacters -> True},
                    FrameMargins->0,
                    ImageSize->Automatic],
                   Alignment->Left,
                   Appearance->None,
                   BaseStyle->{},
                   ButtonFunction:>(SelectionMove[
                    ButtonNotebook[], All, ButtonCell]; NotebookWrite[
                    ButtonNotebook[], 
                    Cell[
                    BoxData[
                    RowBox[{
                    TemplateBox[{"\"Australia\"", 
                    RowBox[{"Entity", "[", 
                    RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], 
                    "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"", 
                    "\"country\""}, "Entity"], "[", 
                    TemplateBox[{"\"population\"", 
                    RowBox[{"EntityProperty", "[", 
                    RowBox[{"\"Country\"", ",", "\"Population\""}], "]"}], 
                    "\"EntityProperty[\\\"Country\\\", \
\\\"Population\\\"]\""}, "EntityProperty"], "]"}]], "Input"], All]; 
                    SelectionMove[
                    ButtonNotebook[], After, CellContents]),
                   Evaluator->Automatic,
                   ImageSize->Automatic,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], 
                  "Tooltip"]& ],
                AppearanceElements->{},
                BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0},
                ImageSize->{Automatic, {1, 100}},
                Scrollbars->{False, Automatic}], "\[SpanFromLeft]", 
               "\[SpanFromLeft]"}
             },
             AutoDelete->False,
             BaselinePosition->{1, 1},
             FrameStyle->GrayLevel[0.85],
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxDividers->{
              "Columns" -> {{False}}, "Rows" -> {False, {True}, False}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Grid"],
           Alignment->Top,
           Background->Dynamic[
             FEPrivate`If[
              FEPrivate`And[
               FEPrivate`SameQ[
                FEPrivate`Head[Typeset`newq$$], String], 
               FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], 
              RGBColor[1., 0.975, 0.95], 
              GrayLevel[1]]],
           BaselinePosition->Baseline,
           FrameStyle->GrayLevel[0.85],
           ImageSize->Automatic,
           RoundingRadius->5,
           StripOnInput->False],
          
          EventHandlerTag[{
           "MouseEntered" :> FEPrivate`Set[Typeset`show$$, True], 
            "MouseExited" :> FEPrivate`Set[Typeset`show$$, False], Method -> 
            "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]],
         DynamicModuleValues:>{}]},
       {
        InterpretationBox[
         StyleBox[
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEExpressions", "NecklaceAnimator"][20]],
          AnimatorBoxOptions->{ImageSize->20}],
         Animator[Appearance -> "Necklace", ImageSize -> 20],
         BaseStyle->{"Deploy"}]}
      },
      BaselinePosition->{1, 1},
      DefaultBaseStyle->"Column",
      GridBoxAlignment->{"Columns" -> {{Left}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
     
     "Column"]}, Dynamic[
     TrueQ[Typeset`open$$]],
    BaseStyle->{Deployed -> True},
    ImageSize->Automatic],
   DynamicModuleValues:>{}],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "WolframAlphaShortInput",
 CellLabel->"In[94]:=",ExpressionUUID->"56054288-8c0c-4068-960a-23ff5dca4d40"],

Cell[BoxData[
 TemplateBox[{"26400000", "\"people\"", "people", "\"People\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.903712036737967*^9, 3.903712063130601*^9}, 
   3.903964058148379*^9, 3.903964356120679*^9, 3.904047891443265*^9, 
   3.90405160317797*^9, 3.9040548110982237`*^9, 3.904062536509645*^9, 
   3.904072649161955*^9, 3.904073363328021*^9, 3.904073405641076*^9, 
   3.9040741074391003`*^9, 3.904078123445772*^9, 3.9042540293579407`*^9, 
   3.9042562586088877`*^9, 3.904329936078141*^9, 3.904332014455038*^9, 
   3.904332100716545*^9, 3.904333939329023*^9, 3.904409690261482*^9, 
   3.9044113888846707`*^9, 3.904416784706915*^9, 3.904417143680769*^9, 
   3.906578661312278*^9, 3.906581718151111*^9, 3.906582497734738*^9, 
   3.906582841455611*^9, 3.9089956332458463`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"6352f5ee-1e5c-4d44-beea-19dc834760a9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.10 Delayed and Immediate Expressions", "Subsection",
 CellChangeTimes->{{3.906579523896309*^9, 
  3.9065795343695083`*^9}},ExpressionUUID->"5b484088-7053-4da8-84e2-\
e4f854c35567"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"W", "=", 
  RowBox[{"RandomReal", "[", "]"}]}]], "Input",
 CellChangeTimes->{{3.9039639168078356`*^9, 3.903963920493993*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"88eb8677-6435-4d0d-8a74-47c4e6b4139f"],

Cell[BoxData["0.08869334743300183`"], "Output",
 CellChangeTimes->{
  3.903963922266518*^9, 3.903964058273932*^9, {3.903964181626706*^9, 
   3.903964184244856*^9}, 3.9039643561679544`*^9, 3.9040478914513493`*^9, 
   3.904051603184126*^9, 3.9040548111045113`*^9, 3.9040625365161743`*^9, 
   3.9040726491723146`*^9, 3.9040733633393784`*^9, 3.904073405647654*^9, 
   3.904074107449863*^9, 3.904078123452648*^9, 3.904254029419593*^9, 
   3.904256258615861*^9, 3.904329936085203*^9, 3.904332014461768*^9, 
   3.9043321007228518`*^9, 3.9043339393401423`*^9, 3.904409690268551*^9, 
   3.904411388890168*^9, 3.904416784714571*^9, 3.904417143687581*^9, 
   3.906578661367799*^9, 3.906581718160935*^9, 3.906582497739493*^9, 
   3.906582841460476*^9, 3.908995633252577*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"e39cdfeb-f29a-45de-89c5-e383dc66a911"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"W", "==", "W"}]], "Input",
 CellChangeTimes->{{3.903964285629441*^9, 3.903964286854015*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"bf148725-7047-411e-9737-efc1233454d1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.903964287406082*^9, 3.903964356199227*^9, 
  3.904047891463945*^9, 3.904051603204658*^9, 3.904054811121364*^9, 
  3.904062536534011*^9, 3.904072649190319*^9, 3.904073363361739*^9, 
  3.9040734056728907`*^9, 3.9040741074741917`*^9, 3.904078123470266*^9, 
  3.904254029424709*^9, 3.904256258630519*^9, 3.904329936099979*^9, 
  3.904332014479447*^9, 3.904332100736416*^9, 3.904333939356893*^9, 
  3.904409690288728*^9, 3.904411388908676*^9, 3.904416784730833*^9, 
  3.90441714370606*^9, 3.906578661372716*^9, 3.90658171817464*^9, 
  3.906582497754195*^9, 3.906582841478361*^9, 3.908995633268552*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"46cc28ce-4e2b-4cbc-85d5-64b0d584cabf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "W", "]"}], ";", 
  RowBox[{"W", ":=", 
   RowBox[{"RandomReal", "[", "]"}]}], ";", "W"}]], "Input",
 CellChangeTimes->{{3.904047858171723*^9, 3.904047858174007*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"ded32c09-5b52-497d-b221-e1d06f5e47e6"],

Cell[BoxData["0.6062344468846537`"], "Output",
 CellChangeTimes->{3.904047891468565*^9, 3.904051603209384*^9, 
  3.904054811126408*^9, 3.904062536538937*^9, 3.904072649195094*^9, 
  3.904073363368825*^9, 3.904073405677953*^9, 3.904074107483296*^9, 
  3.904078123475806*^9, 3.9042540294292183`*^9, 3.9042562586357822`*^9, 
  3.904329936104749*^9, 3.904332014486801*^9, 3.904332100741324*^9, 
  3.904333939361988*^9, 3.904409690293764*^9, 3.904411388915296*^9, 
  3.9044167847362227`*^9, 3.904417143711671*^9, 3.906578661377465*^9, 
  3.906581718179151*^9, 3.9065824977648563`*^9, 3.9065828414866138`*^9, 
  3.908995633327217*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"4d1465aa-d4a7-45ba-9795-273e68510f3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"W", "==", "W"}]], "Input",
 CellChangeTimes->{{3.9040479883461447`*^9, 3.9040479883506107`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"46e35423-b1d9-48d8-8142-a46bb2f1f608"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.904047989575274*^9, 3.904051603213468*^9, 
  3.904054811147734*^9, 3.904062536556467*^9, 3.904072649214532*^9, 
  3.9040733633906097`*^9, 3.9040734056822357`*^9, 3.904074107504603*^9, 
  3.904078123492239*^9, 3.904254029452057*^9, 3.904256258640189*^9, 
  3.904329936122724*^9, 3.904332014501441*^9, 3.904332100745371*^9, 
  3.904333939366191*^9, 3.904409690312228*^9, 3.904411388933881*^9, 
  3.904416784750629*^9, 3.904417143730784*^9, 3.906578661392715*^9, 
  3.90658171818278*^9, 3.906582497779375*^9, 3.906582841503963*^9, 
  3.9089956333315973`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"e3238d1c-e562-4f1c-80c6-96d000447a4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"z", "=", "2"}], ";"}], "               ", 
  RowBox[{"(*", 
   RowBox[{"Assigning", " ", "2", " ", "to", " ", "z"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"R", "=", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"z", "^", "3"}]}]}], ";"}], "        ", 
  RowBox[{"(*", 
   RowBox[{"Rule", " ", "example"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RD", "=", 
    RowBox[{"z", ":>", 
     RowBox[{"z", "^", "3"}]}]}], ";"}], "       ", 
  RowBox[{"(*", 
   RowBox[{"RuleDelayed", " ", "example"}], 
   "*)"}]}], "\n", "R", "\n", "RD"}], "Input",
 CellChangeTimes->{{3.9040514737057467`*^9, 3.90405157715594*^9}, {
   3.904051611542057*^9, 3.904051622706606*^9}, 3.904054929420052*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"094e4f1a-2013-4f71-8574-7752cd3128b8"],

Cell[BoxData[
 RowBox[{"2", "\[Rule]", "8"}]], "Output",
 CellChangeTimes->{3.904051561101676*^9, 3.904051603217387*^9, 
  3.904054811152703*^9, 3.904062536561801*^9, 3.904072649219683*^9, 
  3.904073363395669*^9, 3.904073405707288*^9, 3.904074107509967*^9, 
  3.904078123498075*^9, 3.904254029457708*^9, 3.9042562586575127`*^9, 
  3.904329936129033*^9, 3.904332014506668*^9, 3.904332100761878*^9, 
  3.904333939383645*^9, 3.904409690319902*^9, 3.904411388939171*^9, 
  3.904416784756133*^9, 3.904417143736257*^9, 3.906578661400528*^9, 
  3.90658171818665*^9, 3.9065824977845707`*^9, 3.906582841509865*^9, 
  3.908995633351264*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"4968175b-0426-4d7e-bbe3-d1aaf65efe98"],

Cell[BoxData[
 RowBox[{"2", "\[RuleDelayed]", 
  SuperscriptBox["z", "3"]}]], "Output",
 CellChangeTimes->{3.904051561101676*^9, 3.904051603217387*^9, 
  3.904054811152703*^9, 3.904062536561801*^9, 3.904072649219683*^9, 
  3.904073363395669*^9, 3.904073405707288*^9, 3.904074107509967*^9, 
  3.904078123498075*^9, 3.904254029457708*^9, 3.9042562586575127`*^9, 
  3.904329936129033*^9, 3.904332014506668*^9, 3.904332100761878*^9, 
  3.904333939383645*^9, 3.904409690319902*^9, 3.904411388939171*^9, 
  3.904416784756133*^9, 3.904417143736257*^9, 3.906578661400528*^9, 
  3.90658171818665*^9, 3.9065824977845707`*^9, 3.906582841509865*^9, 
  3.908995633352272*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"f0066209-349d-4392-9053-baa4a1c187f2"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.6 Improving Code ", "Section",
 CellChangeTimes->{{3.906579545263388*^9, 3.906579552823002*^9}, 
   3.907706654868638*^9},ExpressionUUID->"89e2ece9-30c5-4eed-8ed9-\
47f314ed7139"],

Cell[CellGroupData[{

Cell["1.6.1 Code Performance", "Subsection",
 CellChangeTimes->{{3.906579558475909*^9, 
  3.9065795746196136`*^9}},ExpressionUUID->"9e0c4162-dbbb-4497-91a6-\
25a399cbecb7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"Power", "[", 
    RowBox[{"10", ",", 
     RowBox[{"10", "^", "8"}]}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.90406243616225*^9, 3.9040624361660137`*^9}, {
  3.904072001395936*^9, 3.904072001965724*^9}, {3.904072041656179*^9, 
  3.904072078488203*^9}, {3.904072136174032*^9, 3.904072137048998*^9}, {
  3.904072341077737*^9, 3.904072341343244*^9}, {3.904072474163424*^9, 
  3.904072478994784*^9}, {3.904072514437747*^9, 3.904072516176811*^9}, {
  3.904073243919752*^9, 3.904073246659594*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"be46b14e-1273-48bd-8c3f-2439b88971c7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.138836`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.904062438607746*^9, 3.9040625377144623`*^9, 
  3.9040720457985287`*^9, 3.904072080678053*^9, 3.904072138684544*^9, 
  3.904072195043522*^9, 3.9040723157664557`*^9, 3.904072370629464*^9, 
  3.9040724853204*^9, 3.904072526857978*^9, 3.904072650348205*^9, 
  3.904073008834496*^9, 3.904073364549988*^9, 3.904073406853263*^9, 
  3.904074108648619*^9, 3.904078124643696*^9, 3.904254030616373*^9, 
  3.904256259821995*^9, 3.9043299372940693`*^9, 3.904332015630164*^9, 
  3.904332101902265*^9, 3.904333940525679*^9, 3.904409691465831*^9, 
  3.904411390073968*^9, 3.90441678594316*^9, 3.904417144887965*^9, 
  3.906578662554689*^9, 3.906581719331259*^9, 3.906582498938607*^9, 
  3.906582842660838*^9, 3.908995634506336*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"6804aaa0-532e-463c-8307-ded5c0e07a28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"10", "^", 
    RowBox[{"10", "^", "8"}]}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.904062450240658*^9, 3.904062450243586*^9}, {
  3.90407200349761*^9, 3.904072004652956*^9}, {3.904072048436337*^9, 
  3.904072049345332*^9}, {3.904072083574929*^9, 3.904072134181817*^9}, {
  3.904072343443449*^9, 3.904072346443414*^9}, {3.904072477403861*^9, 
  3.904072477793748*^9}, {3.904072517540691*^9, 3.904072517648687*^9}, {
  3.904073248472513*^9, 3.904073253011675*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"5e827483-4b82-4caf-b27e-6c9dd2fdacf6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.119966`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.904062451999917*^9, 3.904062538890038*^9, 
  3.904072051005939*^9, 3.904072141428752*^9, 3.904072323832031*^9, 
  3.904072386670917*^9, 3.904072487072863*^9, 3.904072528562429*^9, 
  3.904072651511517*^9, 3.9040730114370627`*^9, 3.904073365717076*^9, 
  3.9040734080376062`*^9, 3.904074109819532*^9, 3.90407812581126*^9, 
  3.904254031805425*^9, 3.904256261005775*^9, 3.904329938504983*^9, 
  3.904332016792042*^9, 3.904332103075728*^9, 3.904333941691275*^9, 
  3.904409692625774*^9, 3.904411391224901*^9, 3.904416787085631*^9, 
  3.904417146067774*^9, 3.906578663701807*^9, 3.9065817205068483`*^9, 
  3.906582500115359*^9, 3.906582843839767*^9, 3.908995635653186*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"bdd431e6-ab1e-45d9-a486-7bac81543923"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AbsoluteTiming", "[", 
  RowBox[{
   RowBox[{"10", "^", 
    RowBox[{"10", "^", "8"}]}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.9040624780946198`*^9, 3.90406247809662*^9}, {
  3.904072150721084*^9, 3.904072159941104*^9}, {3.904072348253305*^9, 
  3.904072350906953*^9}, {3.904072480604005*^9, 3.904072481368887*^9}, {
  3.904072519371571*^9, 3.9040725194887652`*^9}, {3.9040732546723433`*^9, 
  3.904073260087064*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"44774110-b5b0-44c8-98f6-964065073985"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.120035`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.904062479753702*^9, 3.904062540036037*^9, 
  3.9040720575837507`*^9, 3.904072161696219*^9, 3.904072327246326*^9, 
  3.904072403786884*^9, 3.904072489598118*^9, 3.904072529715302*^9, 
  3.904072652650289*^9, 3.904073014588661*^9, 3.904073366858237*^9, 
  3.904073409188819*^9, 3.904074110966937*^9, 3.90407812696229*^9, 
  3.904254032958845*^9, 3.904256262185991*^9, 3.9043299396571417`*^9, 
  3.904332017927453*^9, 3.904332104220154*^9, 3.904333942834183*^9, 
  3.904409693776075*^9, 3.904411392370643*^9, 3.904416788223377*^9, 
  3.904417147219013*^9, 3.9065786648515053`*^9, 3.906581721654149*^9, 
  3.906582501268808*^9, 3.90658284499356*^9, 3.9089956367935762`*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"f330451f-e130-4c83-bd5b-a14b00221b24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AbsoluteTiming", "[", 
  RowBox[{
   RowBox[{"Power", "[", 
    RowBox[{"10", ",", 
     RowBox[{"10", "^", "8"}]}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.904062484392701*^9, 3.904062484394579*^9}, {
  3.90407216912031*^9, 3.904072175804171*^9}, {3.904072352987615*^9, 
  3.904072354173831*^9}, {3.904072482992016*^9, 3.904072483107243*^9}, {
  3.904072521134324*^9, 3.9040725220808983`*^9}, {3.904073261981109*^9, 
  3.904073264181142*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"7bb61062-3aa8-4dcb-a2d2-59e5e2e8a854"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.120236`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9040624861639223`*^9, 3.904062541196873*^9, 3.90407206006059*^9, 
   3.904072178046689*^9, 3.904072329789626*^9, 3.9040724171984463`*^9, 
   3.90407249112284*^9, {3.904072525266469*^9, 3.904072530854109*^9}, 
   3.904072653796529*^9, 3.9040730159798927`*^9, 3.904073368000846*^9, 
   3.904073410342885*^9, 3.904074112111619*^9, 3.904078128105284*^9, 
   3.904254034110004*^9, 3.904256263339504*^9, 3.9043299408062167`*^9, 
   3.904332019064842*^9, 3.904332105366354*^9, 3.904333943977699*^9, 
   3.904409694925124*^9, 3.904411393518361*^9, 3.9044167893637943`*^9, 
   3.904417148371276*^9, 3.906578665997548*^9, 3.906581722808721*^9, 
   3.906582502454687*^9, 3.906582846154911*^9, 3.908995637933852*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"58beeeed-377d-4e3f-980c-5b86367ce0b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TimeConstrained", "[", 
  RowBox[{
   RowBox[{"10", "^", 
    RowBox[{"10", "^", "8"}]}], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.9040733487100983`*^9, 3.904073377003153*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"0bcb9fb0-0c69-4a27-a853-01697726ebb2"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.904073369140333*^9, 3.904073411491044*^9, 
  3.904074113250207*^9, 3.904078129244442*^9, 3.9042540352648067`*^9, 
  3.904256264487309*^9, 3.90432994195158*^9, 3.9043320201947823`*^9, 
  3.904332106508477*^9, 3.904333945112619*^9, 3.904409696073736*^9, 
  3.904411394661151*^9, 3.904416790498506*^9, 3.9044171495153093`*^9, 
  3.906578667138445*^9, 3.906581723954237*^9, 3.9065825036104193`*^9, 
  3.906582847307507*^9, 3.908995639074669*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"310debbe-3a9b-4650-83db-2e6747d2c0e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"EchoTiming", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Power", "[", 
     RowBox[{"10", ",", 
      RowBox[{"10", "^", "8"}]}], "]"}], ";"}], ",", 
   "\"\<Time in seconds:\>\"", ",", 
   RowBox[{"Method", "->", "Timing"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"EchoTiming", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Power", "[", 
     RowBox[{"10", ",", 
      RowBox[{"10", "^", "8"}]}], "]"}], ";"}], ",", 
   "\"\<Time in seconds:\>\"", ",", 
   RowBox[{"Method", "->", "AbsoluteTiming"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9040725368747187`*^9, 3.9040725456394877`*^9}, {
  3.904072583141498*^9, 3.904072611061888*^9}, {3.9040732659463058`*^9, 
  3.904073268074028*^9}, {3.904073646853853*^9, 3.904073651910363*^9}, {
  3.904073878696937*^9, 3.904073912967342*^9}, {3.90407407053023*^9, 
  3.904074071063583*^9}, {3.904074104331274*^9, 3.904074105834307*^9}, {
  3.904074646432879*^9, 3.904074647739916*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"3021fa14-4730-47f3-a454-b85063d23a25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Time in seconds:\"\>",
   "EchoLabel"], "  ", "1.120233`"}]], "EchoTiming",
 CellChangeTimes->{
  3.9089956402265472`*^9},ExpressionUUID->"52ac8e0a-4634-4989-a6e1-\
3492e34b8bd8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Time in seconds:\"\>",
   "EchoLabel"], "  ", "1.120741`"}]], "EchoTiming",
 CellChangeTimes->{
  3.908995641354287*^9},ExpressionUUID->"b17228ec-455b-448f-a299-\
3c27ca5213fc"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.6.2 Handling Errors", "Subsection",
 CellChangeTimes->{{3.9065795945973*^9, 
  3.906579634016302*^9}},ExpressionUUID->"4157f0f2-dfe1-4e42-89ec-\
a157dbdc533b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", 
  RowBox[{"\"\<hello\>\"", ",", "\"\<I am \>\"", ",", "Jeff"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.904078053515831*^9, 3.904078053519143*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"c4fc31a0-2e1f-4d2d-b950-723cfd4fc71d"],

Cell[BoxData[
 TemplateBox[{
  "StringJoin", "string", 
   "\"String expected at position \\!\\(\\*RowBox[{\\\"2\\\"}]\\) in \
\\!\\(\\*RowBox[{\\\"\\\\\\\"helloI am \\\\\\\"\\\", \\\"<>\\\", \
\\\"Jeff\\\"}]\\).\"", 2, 111, 1, 29159776013087956237, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904078054882462*^9, 3.904078131579104*^9, 
  3.904254037621414*^9, 3.90425626686563*^9, 3.904329944295842*^9, 
  3.904332022502681*^9, 3.904332108862171*^9, 3.904333947491136*^9, 
  3.9044096984217997`*^9, 3.90441139700987*^9, 3.904416792843001*^9, 
  3.904417151873118*^9, 3.906578669502234*^9, 3.906581726320427*^9, 
  3.9065825060048227`*^9, 3.906582849671389*^9, 3.908995641426616*^9},
 CellLabel->
  "During evaluation of \
In[111]:=",ExpressionUUID->"dbe6a5a1-f11e-47fe-9b2b-d01e1ab35538"],

Cell[BoxData[
 RowBox[{"\<\"helloI am \"\>", "<>", "Jeff"}]], "Output",
 CellChangeTimes->{3.904078054892311*^9, 3.904078131585924*^9, 
  3.904254037627183*^9, 3.904256266871435*^9, 3.904329944301931*^9, 
  3.9043320225085497`*^9, 3.904332108867854*^9, 3.904333947497655*^9, 
  3.904409698428508*^9, 3.904411397019008*^9, 3.9044167928508873`*^9, 
  3.9044171518796268`*^9, 3.9065786695095367`*^9, 3.906581726321184*^9, 
  3.9065825060055447`*^9, 3.906582849672098*^9, 3.908995641427202*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"10af649b-e8f2-48d0-a3b6-e792ba03bd78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Power", "[", 
  RowBox[{
   RowBox[{"x", "/", "0"}], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.904078458490302*^9, 3.904078459095533*^9}, {
  3.90407857407857*^9, 3.904078574790112*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"33268fb6-3a81-4f6f-8488-77ed81a8469c"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"", 2, 112, 2, 29159776013087956237, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.9040785766894817`*^9, 3.9042540376528*^9, 
  3.904256266900157*^9, 3.904329944327441*^9, 3.904332022513372*^9, 
  3.904332108893875*^9, 3.904333947524067*^9, 3.9044096984566793`*^9, 
  3.9044113970447817`*^9, 3.904416792877059*^9, 3.904417151906012*^9, 
  3.906578669541306*^9, 3.906581726350025*^9, 3.906582506031784*^9, 
  3.906582849698148*^9, 3.908995641452982*^9},
 CellLabel->
  "During evaluation of \
In[112]:=",ExpressionUUID->"725d51ac-a634-45a4-a1f2-db0d2642f370"],

Cell[BoxData["ComplexInfinity"], "Output",
 CellChangeTimes->{3.904078576697895*^9, 3.90425403765658*^9, 
  3.904256266904073*^9, 3.9043299443313932`*^9, 3.904332022518021*^9, 
  3.9043321088977556`*^9, 3.904333947528067*^9, 3.904409698465328*^9, 
  3.904411397051228*^9, 3.904416792884179*^9, 3.904417151910992*^9, 
  3.906578669546133*^9, 3.906581726350774*^9, 3.906582506032641*^9, 
  3.9065828496988077`*^9, 3.908995641453543*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"154af00d-fd4b-4bd4-9332-cdad988c71cb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.6.3 Debugging Techniques", "Subsection",
 CellChangeTimes->{{3.906579650051737*^9, 
  3.906579657520649*^9}},ExpressionUUID->"b1dbfaf2-11c5-4593-a4f6-\
347d25fa4a64"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Echo", "[", "x", "]"}], ";", 
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Echo", "[", "x", "]"}], ";", 
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Echo", "[", "x", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.904253509347993*^9, 3.904253509351746*^9}, {
  3.904253899990481*^9, 3.904253901186303*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"02d13b52-7527-4f27-a607-5d8cd77ae210"],

Cell[CellGroupData[{

Cell[BoxData["2"], "Echo",
 CellChangeTimes->{
  3.908995641462475*^9},ExpressionUUID->"7402694b-d888-4ab4-ab35-\
3218c8f15dab"],

Cell[BoxData["5"], "Echo",
 CellChangeTimes->{
  3.908995641482804*^9},ExpressionUUID->"31df84b6-ce7a-4ee3-a0ab-\
ab4cffd76f8a"],

Cell[BoxData["26"], "Echo",
 CellChangeTimes->{
  3.908995641493689*^9},ExpressionUUID->"b05c063b-60ee-4757-af07-\
ab199951b1c7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Echo", "[", 
   RowBox[{"x", ",", "\"\<Initial Value: \>\""}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"EchoLabel", "[", "\"\<First Iteration: \>\"", "]"}], "[", "x", 
   "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"EchoEvaluation", "[", 
   RowBox[{
    RowBox[{"x", "=", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", "1"}]}], ",", 
    RowBox[{"\"\<Second Iteration: \>\"", "->", "\"\<Output :\>\""}]}], "]"}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.90425681209277*^9, 3.904256835964686*^9}, {
  3.904256877934778*^9, 3.9042569291712623`*^9}, {3.9043299669195848`*^9, 
  3.9043299814467587`*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"6fd672d8-595a-4544-b5bc-e62df4b8eb28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Initial Value: \"\>",
   "EchoLabel"], "  ", "2"}]], "Echo",
 CellChangeTimes->{
  3.908995641537802*^9},ExpressionUUID->"6f9171e9-fff2-4c09-bf5c-\
927f21bab11d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"First Iteration: \"\>",
   "EchoLabel"], "  ", "5"}]], "Echo",
 CellChangeTimes->{
  3.908995641547275*^9},ExpressionUUID->"3104ee08-9bab-43cf-89ac-\
a1fe0e4be086"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Second Iteration: \"\>",
   "EchoBeforeLabel"], "  ", 
  RowBox[{"x", "=", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", "1"}]}]}]], "EchoBefore",
 CellDingbat->Cell[
   BoxData[
    TemplateBox[{
      StyleBox["\[LeftGuillemet]", "EchoBeforeDingbat"], {
       FrontEnd`EvaluationNotebook[], "56ede74b-e07a-49b3-a5fb-38ff26dabaec"},
       None}, "HyperlinkDefault"]]],
 CellChangeTimes->{3.908995641558793*^9},
 CellTags->
  "2d8d2b42-6d8b-4b6b-98c0-1fc6b46615a8",ExpressionUUID->"c1d7c834-c8ca-4f65-\
9a47-bcc8ea20d25c"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Output :\"\>",
   "EchoAfterLabel"], "  ", 
  TagBox[
   TooltipBox["677",
    RowBox[{"x", "=", 
      RowBox[{
        SuperscriptBox["x", "2"], "+", "1"}]}]],
   Annotation[#, $CellContext`x = $CellContext`x^2 + 1, 
    "Tooltip"]& ]}]], "EchoAfter",
 CellDingbat->Cell[
   BoxData[
    TemplateBox[{
      StyleBox["\[RightGuillemet]", "EchoAfterDingbat"], {
       FrontEnd`EvaluationNotebook[], "2d8d2b42-6d8b-4b6b-98c0-1fc6b46615a8"},
       None}, "HyperlinkDefault"]]],
 CellChangeTimes->{3.908995641589115*^9},
 CellTags->
  "56ede74b-e07a-49b3-a5fb-38ff26dabaec",ExpressionUUID->"92a034f6-2bb8-45d5-\
b9b7-efbb800e418a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"EchoTiming", "[", 
   RowBox[{"Echo", "[", 
    RowBox[{"x", ",", "\"\<Initial Value: \>\""}], "]"}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"EchoTiming", "[", 
   RowBox[{
    RowBox[{"EchoLabel", "[", "\"\<First Iteration: \>\"", "]"}], "[", "x", 
    "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"EchoTiming", "[", 
   RowBox[{"EchoEvaluation", "[", 
    RowBox[{
     RowBox[{"x", "=", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", "1"}]}], ",", 
     RowBox[{"\"\<Second Iteration: \>\"", "->", "\"\<Output :\>\""}]}], 
    "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.904333592384974*^9, 3.90433359239125*^9}, {
  3.904410745726921*^9, 3.904410759801396*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"6b57d54c-aa35-401d-9ab6-381514a56e87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Initial Value: \"\>",
   "EchoLabel"], "  ", "2"}]], "Echo",
 CellChangeTimes->{
  3.908995641626081*^9},ExpressionUUID->"37eed54b-a468-4483-9495-\
b698f927fb2d"],

Cell[BoxData["0.02973`"], "EchoTiming",
 CellChangeTimes->{
  3.90899564163499*^9},ExpressionUUID->"6b69af04-40b3-40b3-806f-a8e068534ea9"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"First Iteration: \"\>",
   "EchoLabel"], "  ", "5"}]], "Echo",
 CellChangeTimes->{
  3.908995641663425*^9},ExpressionUUID->"28270834-3e29-49b7-85a9-\
abfe7975e108"],

Cell[BoxData["0.027704`"], "EchoTiming",
 CellChangeTimes->{
  3.908995641675112*^9},ExpressionUUID->"8bb45b30-1a9b-4d24-b61a-\
22f4952c2615"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Second Iteration: \"\>",
   "EchoBeforeLabel"], "  ", 
  RowBox[{"x", "=", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", "1"}]}]}]], "EchoBefore",
 CellDingbat->Cell[
   BoxData[
    TemplateBox[{
      StyleBox["\[LeftGuillemet]", "EchoBeforeDingbat"], {
       FrontEnd`EvaluationNotebook[], "798204eb-5f0d-476c-aa47-01a8f98e0faa"},
       None}, "HyperlinkDefault"]]],
 CellChangeTimes->{3.908995641697351*^9},
 CellTags->
  "7a06de5b-f5e0-4f04-b4c6-c1cb97419b3b",ExpressionUUID->"5cae736c-3762-471e-\
88ae-2ab8f6ecc937"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Output :\"\>",
   "EchoAfterLabel"], "  ", 
  TagBox[
   TooltipBox["677",
    RowBox[{"x", "=", 
      RowBox[{
        SuperscriptBox["x", "2"], "+", "1"}]}]],
   Annotation[#, $CellContext`x = $CellContext`x^2 + 1, 
    "Tooltip"]& ]}]], "EchoAfter",
 CellDingbat->Cell[
   BoxData[
    TemplateBox[{
      StyleBox["\[RightGuillemet]", "EchoAfterDingbat"], {
       FrontEnd`EvaluationNotebook[], "7a06de5b-f5e0-4f04-b4c6-c1cb97419b3b"},
       None}, "HyperlinkDefault"]]],
 CellChangeTimes->{3.9089956417117577`*^9},
 CellTags->
  "798204eb-5f0d-476c-aa47-01a8f98e0faa",ExpressionUUID->"6b2cb101-7193-410e-\
ad18-e47608c85880"],

Cell[BoxData["0.036824`"], "EchoTiming",
 CellChangeTimes->{
  3.9089956417328672`*^9},ExpressionUUID->"9f7f9372-e684-4a79-bffa-\
c2003c0ee32b"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.7 How Mathematica Works", "Section",
 CellChangeTimes->{{3.906579688763473*^9, 
  3.906579710916488*^9}},ExpressionUUID->"2e51bf8e-adb0-404f-baf8-\
39915f745057"],

Cell[CellGroupData[{

Cell["1.7.1 How Computations are Made (Form of Input)", "Subsection",
 CellChangeTimes->{{3.906579713777211*^9, 
  3.906579733301001*^9}},ExpressionUUID->"66de7941-5712-40f7-8111-\
a0802a907b9d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardForm", "[", 
  RowBox[{
   RowBox[{"1", "/", "x"}], "+", 
   RowBox[{"x", "^", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.904400749170259*^9, 3.904400749172461*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"231432e4-75e4-4827-93f0-9a4e13fe66b3"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "x"], "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{
  3.904400752927537*^9, 3.904409698777502*^9, {3.904411370091229*^9, 
   3.90441139735214*^9}, 3.904416793136917*^9, 3.904417152169447*^9, 
   3.906578669836421*^9, 3.906581726689438*^9, 3.906582506306597*^9, 
   3.906582849998711*^9, 3.908905103728055*^9, 3.908995641756121*^9},
 CellLabel->
  "Out[130]//StandardForm=",ExpressionUUID->"b38295ea-d998-4317-a741-\
c035ddb00d4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"InputForm", "[", 
    RowBox[{
     FractionBox["1", "x"], "+", 
     SuperscriptBox["x", "2"]}], "]"}], ",", 
   RowBox[{"InputForm", "[", 
    SuperscriptBox["a", "x"], "]"}], ",", 
   RowBox[{"InputForm", "[", 
    SubscriptBox["a", "x"], "]"}], ",", 
   RowBox[{"InputForm", " ", "[", 
    SqrtBox["2"], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.904411437244007*^9, 3.904411492923616*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"a76efdae-fd90-4ca1-8b33-1c4e2dbc43f6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}], " ", "+", " ", 
      RowBox[{"x", "^", "2"}]}],
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[$CellContext`x^(-1) + $CellContext`x^2],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{"a", "^", "x"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[$CellContext`a^$CellContext`x],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{"Subscript", "[", 
      RowBox[{"a", ",", " ", "x"}], "]"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[
     Subscript[$CellContext`a, $CellContext`x]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{"Sqrt", "[", "2", "]"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[2^Rational[1, 2]],
    AutoDelete->True,
    Editable->True]}], "}"}]], "Output",
 CellChangeTimes->{3.904411494967703*^9, 3.9044167931416063`*^9, 
  3.9044171521738157`*^9, 3.906578669842721*^9, 3.906581726694906*^9, 
  3.906582506324391*^9, 3.906582850015991*^9, 3.908995641761522*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"a0c064b0-429a-491d-90c3-e8c4078149da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", 
  RowBox[{
   FractionBox["t", "2"], "+", 
   RowBox[{"2", "^", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.904413640856715*^9, 3.9044136720401177`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"c1e8a7a0-8d56-4b28-9b65-738e3e5ddc6c"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Plus", "[", 
    RowBox[{"4", ",", 
     RowBox[{"Times", "[", 
      RowBox[{
       RowBox[{"Rational", "[", 
        RowBox[{"1", ",", "2"}], "]"}], ",", "t"}], "]"}]}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.9044136746797523`*^9, 3.9044167931461983`*^9, 
  3.904417152178513*^9, 3.9065786698479548`*^9, 3.9065817267113256`*^9, 
  3.906582506333672*^9, 3.906582850021206*^9, 3.908995641766069*^9},
 CellLabel->
  "Out[132]//FullForm=",ExpressionUUID->"d69a6cb1-b5e8-46e0-839d-\
39595c10f2c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["t", "2"], "+", 
   RowBox[{"2", "^", "2"}]}], "//", "TreeForm"}]], "Input",
 CellChangeTimes->{{3.904416255879294*^9, 3.904416259820223*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"719c487c-06b2-4b6a-abeb-d1147d5b20ca"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[
   TagBox[
    GraphicsComplexBox[{{0.4472135954999579, 1.7888543819998317`}, {0., 
     0.8944271909999159}, {0.8944271909999159, 0.8944271909999159}, {
     0.4472135954999579, 0.}, {1.3416407864998738`, 0.}}, {
      {RGBColor[0.55, 0.45, 0.45], 
       LineBox[{{1, 2}, {1, 3}, {3, 4}, {3, 5}}]}, {
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Plus", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.05],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 1],
         TagBox[
          RowBox[{"4", "+", 
            FractionBox["t", "2"]}], HoldForm]],
        Annotation[#, 
         HoldForm[4 + Rational[1, 2] $CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["4",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.05],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 2],
         TagBox["4", HoldForm]],
        Annotation[#, 
         HoldForm[4], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Times", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.05],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 3],
         TagBox[
          FractionBox["t", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[Rational[1, 2] $CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             FractionBox["1", "2"],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.05],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 4],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[
          Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["t",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.05],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 5],
         TagBox["t", HoldForm]],
        Annotation[#, 
         HoldForm[$CellContext`t], "Tooltip"]& ]}}],
    Annotation[#, 
     VertexCoordinateRules -> {{0.4472135954999579, 1.7888543819998317`}, {0.,
       0.8944271909999159}, {0.8944271909999159, 0.8944271909999159}, {
      0.4472135954999579, 0.}, {1.3416407864998738`, 0.}}]& ],
   AspectRatio->1,
   FormatType:>StandardForm,
   FrameTicks->Automatic,
   PlotRange->All,
   PlotRangePadding->Scaled[0.1]],
  TreeForm[4 + Rational[1, 2] $CellContext`t],
  Editable->False]], "Output",
 CellChangeTimes->{3.904416260609392*^9, 3.9044167931666*^9, 
  3.9044171521978817`*^9, 3.906578669868748*^9, 3.906581726735734*^9, 
  3.90658250634868*^9, 3.9065828500384483`*^9, 3.908995641782637*^9},
 CellLabel->
  "Out[133]//TreeForm=",ExpressionUUID->"2854e9d5-1c79-407b-a935-\
d5f78f6aff7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Trace", "[", 
  RowBox[{"Plus", "[", 
   RowBox[{"4", ",", 
    RowBox[{"Times", "[", 
     RowBox[{
      RowBox[{"Rational", "[", 
       RowBox[{"1", ",", "2"}], "]"}], ",", "t"}], "]"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.904416764637819*^9, 3.904416764640677*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"3cbcc22f-2c38-43f5-96f2-82924475980d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       TagBox[
        RowBox[{"Rational", "[", 
         RowBox[{"1", ",", "2"}], "]"}],
        HoldForm], ",", 
       TagBox[
        FractionBox["1", "2"],
        HoldForm]}], "}"}], ",", 
     TagBox[
      FractionBox["t", "2"],
      HoldForm]}], "}"}], ",", 
   TagBox[
    RowBox[{"4", "+", 
     FractionBox["t", "2"]}],
    HoldForm]}], "}"}]], "Output",
 CellChangeTimes->{3.904416793173278*^9, 3.904417152211691*^9, 
  3.906578669886899*^9, 3.906581726745846*^9, 3.906582506353602*^9, 
  3.906582850043594*^9, 3.908995641789156*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"8f8f0e64-d218-4202-a80d-ace96d548664"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", 
  RowBox[{"Trace", "[", 
   RowBox[{"Plus", "[", 
    RowBox[{"4", ",", 
     RowBox[{"Times", "[", 
      RowBox[{
       RowBox[{"Rational", "[", 
        RowBox[{"1", ",", "2"}], "]"}], ",", "t"}], "]"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.904416891340209*^9, 3.904416891343811*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"83c7c546-00c7-4c1b-b529-31c92268ef92"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"List", "[", 
    RowBox[{
     RowBox[{"List", "[", 
      RowBox[{
       RowBox[{"List", "[", 
        RowBox[{
         RowBox[{"HoldForm", "[", 
          RowBox[{"Rational", "[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"Rational", "[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"HoldForm", "[", 
        RowBox[{"Times", "[", 
         RowBox[{
          RowBox[{"Rational", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", "t"}], "]"}], "]"}]}], "]"}], 
     ",", 
     RowBox[{"HoldForm", "[", 
      RowBox[{"Plus", "[", 
       RowBox[{"4", ",", 
        RowBox[{"Times", "[", 
         RowBox[{
          RowBox[{"Rational", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", "t"}], "]"}]}], "]"}], 
      "]"}]}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.904416892118993*^9, 3.9044171522354937`*^9, 
  3.906578669892807*^9, 3.906581726761724*^9, 3.906582506358214*^9, 
  3.906582850048014*^9, 3.908995641803803*^9},
 CellLabel->
  "Out[135]//FullForm=",ExpressionUUID->"67dc146a-bfd0-42bc-9dc2-\
14bbc584942a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Trace", "[", 
   RowBox[{
    FractionBox["t", "2"], "+", 
    RowBox[{"2", "^", "2"}]}], "]"}], "//", "TreeForm"}]], "Input",
 CellChangeTimes->{{3.9044169603895693`*^9, 3.9044169610039253`*^9}, {
  3.904416991608437*^9, 3.904417011889077*^9}, {3.904417081621355*^9, 
  3.904417094754433*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"e49669b8-34ae-4a7d-8e5e-6e8026299964"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[
   TagBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQbfVz3UUxTSEH3TvX0jt5OB0yrTM8ufn/2X+scW1j
52JxgNBP7FHFr0DpL3D+B6g6BjTwEU0cYs47uH4Y/wOaPeg0TD3EnT/h6oPP
1kw91sHoAOOj+wPGh+nv1+Er9+hmg6s/3T0/4lQvN5yvpPqQN/2kkAPM/xDz
BeHmwfgw81pKJWTVPAQw9MP4EHUiaOEqAtcf11L0/sVpcbh9MD5MPcS9YnD1
B66s/LfcSxRuPkw9qv8l4epnPWa+mHVOBm4+jA8zH+J/aQfU+JDD0A8z32Ly
mYOr/eXhfAD0/uCR
     "], {
      {RGBColor[0.55, 0.45, 0.45], 
       LineBox[{{1, 2}, {1, 18}, {1, 25}, {1, 31}, {2, 3}, {2, 10}, {2, 14}, {
        3, 4}, {3, 8}, {4, 5}, {5, 6}, {5, 7}, {8, 9}, {10, 11}, {11, 12}, {
        11, 13}, {14, 15}, {15, 16}, {15, 17}, {18, 19}, {18, 23}, {19, 20}, {
        20, 21}, {20, 22}, {23, 24}, {25, 26}, {26, 27}, {26, 30}, {27, 28}, {
        27, 29}, {31, 32}, {32, 33}, {32, 34}, {34, 35}, {34, 36}}]}, {
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["List", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 1],
         TagBox[
          RowBox[{"{", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  RowBox[{"{", 
                    RowBox[{
                    TagBox[
                    FractionBox["1", "2"], HoldForm], ",", 
                    TagBox[
                    FractionBox["1", "2"], HoldForm]}], "}"}], ",", 
                  TagBox[
                   FractionBox["t", "2"], HoldForm], ",", 
                  TagBox[
                   FractionBox["t", "2"], HoldForm]}], "}"}], ",", 
              RowBox[{"{", 
                RowBox[{
                  TagBox[
                   SuperscriptBox["2", "2"], HoldForm], ",", 
                  TagBox["4", HoldForm]}], "}"}], ",", 
              TagBox[
               RowBox[{
                 FractionBox["t", "2"], "+", "4"}], HoldForm], ",", 
              TagBox[
               RowBox[{"4", "+", 
                 FractionBox["t", "2"]}], HoldForm]}], "}"}], HoldForm]],
        Annotation[#, 
         HoldForm[{{{
             HoldForm[2^(-1)], 
             HoldForm[
              Rational[1, 2]]}, 
            HoldForm[$CellContext`t Rational[1, 2]], 
            HoldForm[Rational[1, 2] $CellContext`t]}, {
            HoldForm[2^2], 
            HoldForm[4]}, 
           HoldForm[Rational[1, 2] $CellContext`t + 4], 
           HoldForm[4 + Rational[1, 2] $CellContext`t]}], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["List", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 2],
         TagBox[
          RowBox[{"{", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  TagBox[
                   FractionBox["1", "2"], HoldForm], ",", 
                  TagBox[
                   FractionBox["1", "2"], HoldForm]}], "}"}], ",", 
              TagBox[
               FractionBox["t", "2"], HoldForm], ",", 
              TagBox[
               FractionBox["t", "2"], HoldForm]}], "}"}], HoldForm]],
        Annotation[#, 
         HoldForm[{{
            HoldForm[2^(-1)], 
            HoldForm[
             Rational[1, 2]]}, 
           HoldForm[$CellContext`t Rational[1, 2]], 
           HoldForm[Rational[1, 2] $CellContext`t]}], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["List", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 3],
         TagBox[
          RowBox[{"{", 
            RowBox[{
              TagBox[
               FractionBox["1", "2"], HoldForm], ",", 
              TagBox[
               FractionBox["1", "2"], HoldForm]}], "}"}], HoldForm]],
        Annotation[#, 
         HoldForm[{
           HoldForm[2^(-1)], 
           HoldForm[
            Rational[1, 2]]}], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 4],
         TagBox[
          TagBox[
           FractionBox["1", "2"], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[2^(-1)]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Power", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 5],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[2^(-1)], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["2",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 6],
         TagBox["2", HoldForm]],
        Annotation[#, 
         HoldForm[2], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             RowBox[{"-", "1"}],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 7],
         TagBox[
          RowBox[{"-", "1"}], HoldForm]],
        Annotation[#, 
         HoldForm[-1], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 8],
         TagBox[
          TagBox[
           FractionBox["1", "2"], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[
           Rational[1, 2]]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             FractionBox["1", "2"],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 9],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[
          Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 10],
         TagBox[
          TagBox[
           FractionBox["t", "2"], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[$CellContext`t Rational[1, 2]]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Times", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 11],
         TagBox[
          FractionBox["t", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[$CellContext`t Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["t",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 12],
         TagBox["t", HoldForm]],
        Annotation[#, 
         HoldForm[$CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             FractionBox["1", "2"],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 13],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[
          Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 14],
         TagBox[
          TagBox[
           FractionBox["t", "2"], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[Rational[1, 2] $CellContext`t]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Times", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 15],
         TagBox[
          FractionBox["t", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[Rational[1, 2] $CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             FractionBox["1", "2"],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 16],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[
          Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["t",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 17],
         TagBox["t", HoldForm]],
        Annotation[#, 
         HoldForm[$CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["List", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 18],
         TagBox[
          RowBox[{"{", 
            RowBox[{
              TagBox[
               SuperscriptBox["2", "2"], HoldForm], ",", 
              TagBox["4", HoldForm]}], "}"}], HoldForm]],
        Annotation[#, 
         HoldForm[{
           HoldForm[2^2], 
           HoldForm[4]}], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 19],
         TagBox[
          TagBox[
           SuperscriptBox["2", "2"], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[2^2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Power", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 20],
         TagBox[
          SuperscriptBox["2", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[2^2], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["2",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 21],
         TagBox["2", HoldForm]],
        Annotation[#, 
         HoldForm[2], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["2",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 22],
         TagBox["2", HoldForm]],
        Annotation[#, 
         HoldForm[2], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 23],
         TagBox[
          TagBox["4", HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[4]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["4",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 24],
         TagBox["4", HoldForm]],
        Annotation[#, 
         HoldForm[4], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 25],
         TagBox[
          TagBox[
           RowBox[{
             FractionBox["t", "2"], "+", "4"}], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[Rational[1, 2] $CellContext`t + 4]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Plus", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 26],
         TagBox[
          RowBox[{
            FractionBox["t", "2"], "+", "4"}], HoldForm]],
        Annotation[#, 
         HoldForm[Rational[1, 2] $CellContext`t + 4], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Times", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 27],
         TagBox[
          FractionBox["t", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[Rational[1, 2] $CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             FractionBox["1", "2"],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 28],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[
          Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["t",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 29],
         TagBox["t", HoldForm]],
        Annotation[#, 
         HoldForm[$CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["4",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 30],
         TagBox["4", HoldForm]],
        Annotation[#, 
         HoldForm[4], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["HoldForm", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 31],
         TagBox[
          TagBox[
           RowBox[{"4", "+", 
             FractionBox["t", "2"]}], HoldForm], HoldForm]],
        Annotation[#, 
         HoldForm[
          HoldForm[4 + Rational[1, 2] $CellContext`t]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Plus", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 32],
         TagBox[
          RowBox[{"4", "+", 
            FractionBox["t", "2"]}], HoldForm]],
        Annotation[#, 
         HoldForm[4 + Rational[1, 2] $CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["4",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 33],
         TagBox["4", HoldForm]],
        Annotation[#, 
         HoldForm[4], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox["Times", "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 34],
         TagBox[
          FractionBox["t", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[Rational[1, 2] $CellContext`t], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox[
             FractionBox["1", "2"],
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 35],
         TagBox[
          FractionBox["1", "2"], HoldForm]],
        Annotation[#, 
         HoldForm[
          Rational[1, 2]], "Tooltip"]& ], 
       TagBox[
        TooltipBox[InsetBox[
          FrameBox[
           StyleBox[
            TagBox["t",
             HoldForm], "StandardForm", "Output",
            StripOnInput->False,
            LineColor->GrayLevel[0],
            FrontFaceColor->GrayLevel[0],
            BackFaceColor->GrayLevel[0],
            GraphicsColor->GrayLevel[0],
            FontSize->Scaled[0.018181818181818184`],
            FontColor->GrayLevel[0]],
           Background->RGBColor[1., 1., 0.871],
           FrameStyle->GrayLevel[0.5],
           StripOnInput->False], 36],
         TagBox["t", HoldForm]],
        Annotation[#, 
         HoldForm[$CellContext`t], "Tooltip"]& ]}}],
    Annotation[#, VertexCoordinateRules -> CompressedData["
1:eJxTTMoPSmViYGBQAWIQbfVz3UUxTSEH3TvX0jt5OB0yrTM8ufn/2X+scW1j
52JxgNBP7FHFr0DpL3D+B6g6BjTwEU0cYs47uH4Y/wOaPeg0TD3EnT/h6oPP
1kw91sHoAOOj+wPGh+nv1+Er9+hmg6s/3T0/4lQvN5yvpPqQN/2kkAPM/xDz
BeHmwfgw81pKJWTVPAQw9MP4EHUiaOEqAtcf11L0/sVpcbh9MD5MPcS9YnD1
B66s/LfcSxRuPkw9qv8l4epnPWa+mHVOBm4+jA8zH+J/aQfU+JDD0A8z32Ly
mYOr/eXhfAD0/uCR
      "]]& ],
   AspectRatio->NCache[Rational[3, 11]^Rational[1, 2], 0.5222329678670935],
   FormatType:>StandardForm,
   FrameTicks->Automatic,
   ImageMargins->0.,
   ImageSize->Automatic,
   PlotRange->All,
   PlotRangePadding->Scaled[0.1]],
  TreeForm[{{{
      HoldForm[2^(-1)], 
      HoldForm[
       Rational[1, 2]]}, 
     HoldForm[$CellContext`t Rational[1, 2]], 
     HoldForm[Rational[1, 2] $CellContext`t]}, {
     HoldForm[2^2], 
     HoldForm[4]}, 
    HoldForm[Rational[1, 2] $CellContext`t + 4], 
    HoldForm[4 + Rational[1, 2] $CellContext`t]}],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.904417012667239*^9, 3.904417054795073*^9, {3.904417088409388*^9, 
   3.904417095315682*^9}, 3.904417152270817*^9, 3.906498155360299*^9, 
   3.906578669922647*^9, 3.906581726787538*^9, 3.90658250637995*^9, 
   3.906582850070163*^9, 3.908995641832747*^9},
 CellLabel->
  "Out[136]//TreeForm=",ExpressionUUID->"4d3978df-f1e1-4fa4-960c-\
c63e8104694f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.7.2 Searching for Assistance", "Subsection",
 CellChangeTimes->{{3.906579764322959*^9, 
  3.906579785410928*^9}},ExpressionUUID->"9d08a036-0a70-4f60-b609-\
1520e8e3985e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Head"}]], "Input",
 CellChangeTimes->{{3.904491354837625*^9, 3.904491356903203*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"8481d4c9-1aba-4093-b855-9ee18b1bfc40"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"]], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"]]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:ref/Head",
              ButtonNote->"paclet:ref/Head"],
             "\"paclet:ref/Head\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Head\\\", \\\"[\\\", StyleBox[\
\\\"expr\\\", \\\"TI\\\"], \\\"]\\\"}]\\) gives the head of \
\\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\). \
\\n\\!\\(\\*RowBox[{\\\"Head\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"h\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
wraps the result with \\!\\(\\*StyleBox[\\\"h\\\", \\\"TI\\\"]\\).\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Documentation\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Documentation\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Documentation", "Tooltip"]& ], 
                   TemplateBox[{
                    
                    TemplateBox[{
                    "\"Local \[RightGuillemet]\"", "paclet:ref/Head", 
                    "paclet:ref/Head", "Link", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"], "\"  \"", 
                    StyleBox[
                    "\"|\"", "InformationRowLabel", StripOnInput -> False], 
                    "\"  \"", 
                    TemplateBox[{"\"Web \[RightGuillemet]\"", {
                    URL[
                    "http://reference.wolfram.com/language/ref/Head.html"], 
                    None}, "http://reference.wolfram.com/language/ref/Head.\
html", "Hyperlink", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"]},
                    "RowDefault"]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", "Protected", "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"System`Head\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"],
                ImageSizeCache->{16., {5., 11.}}], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"],
                ImageSizeCache->{16., {5., 11.}}]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:ref/Head",
              ButtonNote->"paclet:ref/Head"],
             "\"paclet:ref/Head\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Head\\\", \\\"[\\\", StyleBox[\
\\\"expr\\\", \\\"TI\\\"], \\\"]\\\"}]\\) gives the head of \
\\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\). \
\\n\\!\\(\\*RowBox[{\\\"Head\\\", \\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"h\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
wraps the result with \\!\\(\\*StyleBox[\\\"h\\\", \\\"TI\\\"]\\).\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{13., {2., 11.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{13., {2., 11.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "\!\(\*RowBox[{\"Head\", \"[\", StyleBox[\"expr\", \"TI\"], \"]\"}]\) \
gives the head of \!\(\*StyleBox[\"expr\", \"TI\"]\). \n\
\!\(\*RowBox[{\"Head\", \"[\", RowBox[{StyleBox[\"expr\", \"TI\"], \",\", \
StyleBox[\"h\", \"TI\"]}], \"]\"}]\) wraps the result with \!\(\*StyleBox[\"h\
\", \"TI\"]\).", 
    "Documentation" -> <|
     "Local" -> "paclet:ref/Head", "Web" -> 
      "http://reference.wolfram.com/language/ref/Head.html"|>, "OwnValues" -> 
    None, "UpValues" -> None, "DownValues" -> None, "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {Protected}, "FullName" -> 
    "System`Head"|>, False]]], "Output",
 CellChangeTimes->{3.904491358117177*^9, 3.9065786699913483`*^9, 
  3.906581726943739*^9, 3.906582506534379*^9, 3.906582850222588*^9, 
  3.908995641901825*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"5b4d6659-8400-4cb8-95d1-45715304eb8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Hea*"}]], "Input",
 CellChangeTimes->{{3.904491516258699*^9, 3.904491520252088*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"bb71d916-8c40-4391-a4df-cd62a0de7eb7"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["System`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{13., {3., 10.}}], " ", 
              StyleBox["System`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["Head", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "Head", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeaderSize", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeaderSize", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatSymmetryValue", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatSymmetryValue", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["HeadCompose", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeadCompose", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeaderStyle", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeaderStyle", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatTemperatureCondition", "InformationGridButton"],
                 
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatTemperatureCondition", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["HeaderAlignment", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeaderAlignment", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Heads", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "Heads", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatTransferPDEComponent", "InformationGridButton"],
                 
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatTransferPDEComponent", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["HeaderBackground", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeaderBackground", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatFluxValue", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatFluxValue", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatTransferValue", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatTransferValue", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["HeaderDisplayFunction", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeaderDisplayFunction", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatInsulationValue", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatInsulationValue", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeavisideLambda", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeavisideLambda", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["HeaderLines", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeaderLines", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatOutflowValue", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatOutflowValue", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeavisidePi", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeavisidePi", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["Headers", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "Headers", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeatRadiationValue", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeatRadiationValue", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HeavisideTheta", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-39f2992c-12fc-4aa7-abfa-3a1c77fde79e", {
                   "HeavisideTheta", "System`"}, False},
                 ButtonNote->"System`",
                 Evaluator->Automatic]}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.31666666666666665`]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{3.904491523369562*^9, 3.906578670039665*^9, 
  3.906581726982382*^9, 3.906582506572831*^9, 3.906582850265567*^9, 
  3.908995641943143*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"934ab454-5e45-4dda-9ad3-16c616e5b3ad"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.7.3 Notebook Security", "Subsection",
 CellChangeTimes->{{3.906579796481805*^9, 
  3.906579811346264*^9}},ExpressionUUID->"cadd9a8e-664f-4868-bfe8-\
8abceba78faa"],

Cell[CellGroupData[{

Cell[BoxData["$BaseDirectory"], "Input",
 CellChangeTimes->{{3.9044916840670037`*^9, 3.904491684069357*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"910ee37b-9acd-4638-ad02-c26bb23cd734"],

Cell[BoxData["\<\"/Library/Mathematica\"\>"], "Output",
 CellChangeTimes->{3.9044916851071453`*^9, 3.906578670058399*^9, 
  3.906581726987258*^9, 3.906582506577683*^9, 3.906582850271669*^9, 
  3.908995641947297*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"be7191d4-dfa0-41d8-a646-683610d039f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$UserBaseDirectory"], "Input",
 CellChangeTimes->{{3.9044919264124417`*^9, 3.904491926414384*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"94efe70f-c250-4d42-9230-a338f32aa700"],

Cell[BoxData["\<\"/Users/macosx/Library/Mathematica\"\>"], "Output",
 CellChangeTimes->{3.904491927233461*^9, 3.906578670070407*^9, 
  3.906581727002632*^9, 3.906582506590813*^9, 3.9065828502885227`*^9, 
  3.9089956419614983`*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"7696f9c5-db0a-42bd-9428-53f5ef61720e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$InitialDirectory"], "Input",
 CellChangeTimes->{{3.9044919378392487`*^9, 3.90449193784635*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"276578cf-b9b6-4d23-88be-e2e226bf518c"],

Cell[BoxData["\<\"/Users/macosx\"\>"], "Output",
 CellChangeTimes->{3.904491938828205*^9, 3.906578670075394*^9, 
  3.906581727009134*^9, 3.9065825066046867`*^9, 3.90658285029357*^9, 
  3.90899564196631*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"96a0e5c6-f1fb-4935-849f-50bd16cb1e97"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"MultipurposeBar",
WindowSize->{1021, 803},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>1.25 Inherited,
FrontEndVersion->"14.0 for Mac OS X ARM (64-bit) (December 12, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"29436a60-8b7a-405f-bdc6-cff2bf3782d1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "2d8d2b42-6d8b-4b6b-98c0-1fc6b46615a8"->{
  Cell[444531, 8903, 564, 16, 70, "EchoBefore",ExpressionUUID->"c1d7c834-c8ca-4f65-9a47-bcc8ea20d25c",
   CellTags->"2d8d2b42-6d8b-4b6b-98c0-1fc6b46615a8"]},
 "56ede74b-e07a-49b3-a5fb-38ff26dabaec"->{
  Cell[445098, 8921, 669, 20, 70, "EchoAfter",ExpressionUUID->"92a034f6-2bb8-45d5-b9b7-efbb800e418a",
   CellTags->"56ede74b-e07a-49b3-a5fb-38ff26dabaec"]},
 "7a06de5b-f5e0-4f04-b4c6-c1cb97419b3b"->{
  Cell[447671, 9011, 564, 16, 70, "EchoBefore",ExpressionUUID->"5cae736c-3762-471e-88ae-2ab8f6ecc937",
   CellTags->"7a06de5b-f5e0-4f04-b4c6-c1cb97419b3b"]},
 "798204eb-5f0d-476c-aa47-01a8f98e0faa"->{
  Cell[448238, 9029, 671, 20, 70, "EchoAfter",ExpressionUUID->"6b2cb101-7193-410e-ad18-e47608c85880",
   CellTags->"798204eb-5f0d-476c-aa47-01a8f98e0faa"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"2d8d2b42-6d8b-4b6b-98c0-1fc6b46615a8", 518362, 10948},
 {"56ede74b-e07a-49b3-a5fb-38ff26dabaec", 518563, 10951},
 {"7a06de5b-f5e0-4f04-b4c6-c1cb97419b3b", 518763, 10954},
 {"798204eb-5f0d-476c-aa47-01a8f98e0faa", 518964, 10957}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 234, 4, 86, "Chapter",ExpressionUUID->"a3125ec1-3675-4f59-a1aa-7380f66fecba"],
Cell[817, 28, 168, 3, 84, "Section",ExpressionUUID->"5618285f-edcb-412d-a71a-872ad37654c5"],
Cell[988, 33, 171, 3, 65, "Section",ExpressionUUID->"d9ac3942-d4f0-4a29-8144-4bdf94981934"],
Cell[CellGroupData[{
Cell[1184, 40, 172, 3, 65, "Section",ExpressionUUID->"a5b28608-daf8-4937-8fbb-467968534dfe"],
Cell[CellGroupData[{
Cell[1381, 47, 225, 4, 67, "Subsection",ExpressionUUID->"de0c3eb4-059a-4e31-80ac-375d86c04b74"],
Cell[CellGroupData[{
Cell[1631, 55, 289, 7, 37, "Input",ExpressionUUID->"51c40a3a-e0ba-4df7-ac01-21d0c7af8eeb"],
Cell[1923, 64, 1549, 22, 42, "Output",ExpressionUUID->"c1a6def8-be2e-4df5-80d6-66d6825f0665"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3533, 93, 174, 3, 84, "Section",ExpressionUUID->"98436880-1d0c-4a17-b9b0-abc9b481aa9f"],
Cell[3710, 98, 172, 3, 67, "Subsection",ExpressionUUID->"4786d9d5-f601-4f10-9c92-317db46fcf83"],
Cell[3885, 103, 190, 3, 46, "Subsection",ExpressionUUID->"70b1219c-d083-410c-a03a-0a90df1c5092"],
Cell[4078, 108, 162, 3, 46, "Subsection",ExpressionUUID->"d1b9ec5e-f6ee-4d0b-b56a-215404be1220"],
Cell[CellGroupData[{
Cell[4265, 115, 181, 3, 46, "Subsection",ExpressionUUID->"3cec6dab-79a1-4499-b335-33c7d3924f96"],
Cell[CellGroupData[{
Cell[4471, 122, 434, 10, 37, "Input",ExpressionUUID->"d7883bad-0601-476c-b0df-6d5898343ee9"],
Cell[4908, 134, 2585, 41, 70, "Output",ExpressionUUID->"87a4516d-7070-4757-879d-b3b70f4df549"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7554, 182, 174, 3, 84, "Section",ExpressionUUID->"1d28e189-4ed8-4d59-9b5b-8214d7ef4291"],
Cell[CellGroupData[{
Cell[7753, 189, 175, 3, 67, "Subsection",ExpressionUUID->"9f982d47-c173-4b38-90c8-12efd6ad893d"],
Cell[CellGroupData[{
Cell[7953, 196, 289, 7, 37, "Input",ExpressionUUID->"103a1510-c6d8-40a1-b496-495c5b28c72c"],
Cell[8245, 205, 1972, 28, 70, "Output",ExpressionUUID->"500dd5a1-3c75-48dd-badf-e731ec3b1bc0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10254, 238, 222, 4, 37, "Input",ExpressionUUID->"a96a2007-dc37-41f7-a4fd-725928c0a17a"],
Cell[10479, 244, 1986, 28, 70, "Output",ExpressionUUID->"ccdc7335-6a88-4a3b-981e-70c588a2eb59"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12502, 277, 193, 3, 37, "Input",ExpressionUUID->"088ed5e7-bf96-46ff-934b-e052012460a3"],
Cell[12698, 282, 1916, 28, 70, "Output",ExpressionUUID->"06cce500-226e-41c0-ac36-a3ddafc3fec8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14651, 315, 228, 5, 56, "Input",ExpressionUUID->"77333253-fedf-417b-9b4c-6f4e49ce6d70"],
Cell[14882, 322, 1974, 31, 70, "Output",ExpressionUUID->"67b3ffe2-214f-4a2e-b0b9-a56e286c4c72"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16893, 358, 254, 6, 56, "Input",ExpressionUUID->"f9c58c74-e3d4-47ea-8b0e-fae311513c4e"],
Cell[17150, 366, 1945, 28, 70, "Output",ExpressionUUID->"143e0a80-b359-46ef-ba36-7c1ceac350b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19132, 399, 296, 6, 37, "Input",ExpressionUUID->"1e399d4d-cefb-49b9-ab39-df3ed4fed97a"],
Cell[19431, 407, 1949, 28, 70, "Output",ExpressionUUID->"7849015a-da9e-492d-9b37-655906f69bb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21417, 440, 237, 5, 57, "Input",ExpressionUUID->"7d450193-8f77-4e95-a117-3a6443407c21"],
Cell[21657, 447, 1948, 27, 70, "Output",ExpressionUUID->"421f068e-be04-4a94-99e2-ea60ad806f15"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23642, 479, 249, 5, 37, "Input",ExpressionUUID->"e95fc47f-46c7-4757-b94c-a94aa1040382"],
Cell[23894, 486, 1879, 26, 70, "Output",ExpressionUUID->"be2038f6-c57a-4711-bfe2-34fea1755f12"]
}, Open  ]],
Cell[25788, 515, 355, 8, 37, "Input",ExpressionUUID->"55147ca8-51de-4f66-9a93-bd87afed28b4"]
}, Closed]],
Cell[CellGroupData[{
Cell[26180, 528, 170, 3, 46, "Subsection",ExpressionUUID->"32a4e97e-1cc7-4ffd-9e11-91de68833c2c"],
Cell[CellGroupData[{
Cell[26375, 535, 263, 5, 90, "Input",ExpressionUUID->"d2ca437e-cf1d-4a8f-b592-032fc4fbd8e5"],
Cell[26641, 542, 1911, 27, 70, "Output",ExpressionUUID->"bc6c3720-0724-4862-a1c6-5014098eaac5"],
Cell[28555, 571, 1908, 27, 70, "Output",ExpressionUUID->"fdaa07c1-ab99-410a-bf72-c28fb670e193"],
Cell[30466, 600, 1929, 28, 70, "Output",ExpressionUUID->"8e4e324f-aeb1-423a-9b51-26e42196faa2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32432, 633, 390, 6, 90, "Input",ExpressionUUID->"2116587d-03c1-4a59-be11-d5a9e04763cb"],
Cell[32825, 641, 1878, 27, 70, "Output",ExpressionUUID->"48353739-badc-4ec8-a70d-d6b1e7cc1ab9"],
Cell[34706, 670, 1880, 27, 70, "Output",ExpressionUUID->"f1212bed-d66d-42b9-aad5-0c8f6ba65cd5"],
Cell[36589, 699, 1880, 27, 70, "Output",ExpressionUUID->"ba55a9bd-f39e-40de-b68b-af372178e9bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38506, 731, 213, 3, 37, "Input",ExpressionUUID->"ec0156d6-8106-4199-8d71-b13f08b1b5b0"],
Cell[38722, 736, 1917, 30, 70, "Output",ExpressionUUID->"aa358904-2580-4672-b4ab-5dd32cf17237"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40676, 771, 483, 14, 46, "Input",ExpressionUUID->"f91923da-1529-4c89-a308-ddeb5ab01476"],
Cell[41162, 787, 1879, 28, 70, "Output",ExpressionUUID->"bb35ac0b-bd08-46cf-9f12-18c73d54facc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43078, 820, 226, 4, 37, "Input",ExpressionUUID->"bb18d0b9-f0f2-4f9c-9243-92ee4eb5c59d"],
Cell[43307, 826, 1838, 28, 70, "Output",ExpressionUUID->"cd929094-12d9-4437-bee8-157be42c5c08"]
}, Open  ]],
Cell[45160, 857, 275, 5, 37, "Input",ExpressionUUID->"ac53de15-b09f-4347-bb49-ce2987d90a90"],
Cell[CellGroupData[{
Cell[45460, 866, 202, 3, 37, "Input",ExpressionUUID->"0608898b-6e81-4215-8f83-272cc716a500"],
Cell[45665, 871, 1762, 25, 70, "Output",ExpressionUUID->"091018e0-ea28-4153-a1f6-5ee207255050"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[47476, 902, 172, 3, 46, "Subsection",ExpressionUUID->"8d345e4a-dc30-4ab1-8ff3-f3c0d7393801"],
Cell[CellGroupData[{
Cell[47673, 909, 206, 3, 37, "Input",ExpressionUUID->"dc54ab5f-7906-494b-b5d7-8604fb9dad96"],
Cell[47882, 914, 1732, 25, 42, "Output",ExpressionUUID->"108fdbb3-118a-49b2-986e-917d5a5e9f0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49651, 944, 313, 7, 37, "Input",ExpressionUUID->"37393613-1c55-437a-9f9f-f3aa986c8ad0"],
Cell[49967, 953, 1744, 25, 42, "Output",ExpressionUUID->"01d8387c-5eb5-4f7b-b913-ce9977ec94a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51748, 983, 228, 4, 37, "Input",ExpressionUUID->"87f51368-cd2b-446a-9f4b-82b8c281558e"],
Cell[51979, 989, 267, 4, 42, "Output",ExpressionUUID->"99fc05d6-0e93-4036-8b3c-6b3346e0678f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52283, 998, 416, 10, 64, "Input",ExpressionUUID->"9f88acf7-0743-4b69-84f0-fe31718b5193"],
Cell[52702, 1010, 1781, 25, 42, "Output",ExpressionUUID->"eef94c36-f6c4-4b87-9a31-912437399fcc"],
Cell[54486, 1037, 1798, 26, 42, "Output",ExpressionUUID->"43014552-6e3c-4e28-8c3c-cdd3167307f0"]
}, Open  ]],
Cell[56299, 1066, 226, 4, 37, "Input",ExpressionUUID->"ad8ab30b-f2fa-474c-ac17-f19c284e48c5"],
Cell[CellGroupData[{
Cell[56550, 1074, 215, 3, 37, "Input",ExpressionUUID->"25510e0b-ca15-4379-8f6f-93c4203f6078"],
Cell[56768, 1079, 1730, 27, 70, "Output",ExpressionUUID->"a7476cba-2c3b-4ce2-af4d-79e0d12f2ea8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58535, 1111, 579, 14, 64, "Input",ExpressionUUID->"bfcaebdf-8815-447e-ac32-2f4aa3e251d0"],
Cell[59117, 1127, 1678, 23, 70, "Output",ExpressionUUID->"6c98347e-849f-4690-a4e5-032180bf3fac"],
Cell[60798, 1152, 1726, 24, 70, "Output",ExpressionUUID->"2841a15e-f53a-469b-a485-c4f2057d07c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62561, 1181, 211, 3, 37, "Input",ExpressionUUID->"e83a6a78-90c1-428e-99dc-7c80650c0924"],
Cell[62775, 1186, 1571, 23, 70, "Output",ExpressionUUID->"f166dcaf-a372-431f-bc64-94cc815baa18"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[64395, 1215, 168, 3, 46, "Subsection",ExpressionUUID->"d926aac5-7afd-4516-b25f-46b31aea4350"],
Cell[CellGroupData[{
Cell[64588, 1222, 347, 5, 37, "Input",ExpressionUUID->"ead46167-81fb-4c27-8879-91bb94099325"],
Cell[64938, 1229, 2130, 39, 52, "Output",ExpressionUUID->"e29825b2-75f5-4015-8c39-4c6a8d04e49f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67105, 1273, 276, 4, 37, "Input",ExpressionUUID->"f75fe09e-1fb3-41d6-90a3-13a646fe12d4"],
Cell[67384, 1279, 1731, 31, 52, "Output",ExpressionUUID->"2673c6c7-215f-45b6-becf-f71a2f161090"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69152, 1315, 308, 6, 37, "Input",ExpressionUUID->"c2b08d42-ce1f-4d8f-9111-ed2fb8547a5a"],
Cell[69463, 1323, 1412, 20, 42, "Output",ExpressionUUID->"93d0b966-b52e-4c27-ba80-1bf5cdc1b591"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70912, 1348, 520, 12, 64, "Input",ExpressionUUID->"f8cd94ef-ace2-4450-b69f-d4caac0cd332"],
Cell[71435, 1362, 1402, 20, 42, "Output",ExpressionUUID->"40f79a63-ca1e-4eec-8540-53f44d8a472c"],
Cell[72840, 1384, 1412, 20, 42, "Output",ExpressionUUID->"c597abf2-9296-46b4-a543-f5a1d3b116ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74289, 1409, 395, 9, 37, "Input",ExpressionUUID->"725c7dac-7a7a-4462-a28d-043a65700263"],
Cell[74687, 1420, 1375, 20, 42, "Output",ExpressionUUID->"e44fab5f-e281-4660-b706-001281b3ba82"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76099, 1445, 438, 9, 64, "Input",ExpressionUUID->"0726f85b-fd08-417a-925f-f53334389c3d"],
Cell[76540, 1456, 1357, 19, 42, "Output",ExpressionUUID->"c2230ba4-3e30-4454-a0af-a979d0d790c4"],
Cell[77900, 1477, 1355, 19, 42, "Output",ExpressionUUID->"ba93b6bb-e904-4a06-aab2-0b70c88b847c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79292, 1501, 203, 3, 37, "Input",ExpressionUUID->"f9878ad1-c460-41c2-9e8e-8b9f98fd637f"],
Cell[79498, 1506, 1567, 28, 52, "Output",ExpressionUUID->"740f286d-5d03-404c-a35c-57aed44085e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81102, 1539, 592, 13, 64, "Input",ExpressionUUID->"954f0535-e661-4a2b-a909-6e34125241b0"],
Cell[81697, 1554, 1401, 19, 42, "Output",ExpressionUUID->"328383d9-d8be-43cd-8394-d931bd585eca"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[83147, 1579, 161, 3, 46, "Subsection",ExpressionUUID->"50a29b4d-13f3-4ffb-9337-3cf62d96adc9"],
Cell[CellGroupData[{
Cell[83333, 1586, 291, 5, 37, "Input",ExpressionUUID->"6bf86bd6-cae1-41ef-a8a2-4840cdd4ef1f"],
Cell[83627, 1593, 1277, 18, 70, "Output",ExpressionUUID->"ae941329-c602-4afb-ab54-1f4c927be609"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84941, 1616, 148, 2, 37, "Input",ExpressionUUID->"e2f33d9b-d916-4655-84d1-80aad12e86be"],
Cell[85092, 1620, 1247, 17, 70, "Output",ExpressionUUID->"3ab43cff-d36a-4ea0-aa92-2ffcc7bd82af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86376, 1642, 419, 9, 37, "Input",ExpressionUUID->"12eb4598-fd65-4bb0-8794-10b94d115bc4"],
Cell[86798, 1653, 1234, 17, 70, "Output",ExpressionUUID->"32606c37-a32c-472b-b445-22139e8b1ac0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88069, 1675, 201, 2, 37, "Input",ExpressionUUID->"4ad43f8a-6177-4ef0-b3bc-0e0870cf72ae"],
Cell[88273, 1679, 1241, 17, 70, "Output",ExpressionUUID->"03ea4b66-e7d3-428d-b993-89af51009604"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89551, 1701, 262, 5, 37, "Input",ExpressionUUID->"d29a0c7f-9c51-476c-a47d-5e0560258c80"],
Cell[89816, 1708, 1194, 17, 70, "Output",ExpressionUUID->"87b079d4-04f3-425a-b354-4eb1a98bd6f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91047, 1730, 405, 8, 90, "Input",ExpressionUUID->"e2452fb4-1682-412e-bb6a-6ed9fb7b3fea"],
Cell[91455, 1740, 1419, 21, 70, "Output",ExpressionUUID->"bcd36c71-488d-4091-afcd-9dbd2dbd2fed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92911, 1766, 702, 16, 116, "Input",ExpressionUUID->"cad25af9-4a86-4bf8-a6da-3da3b6521d78"],
Cell[93616, 1784, 1219, 17, 70, "Output",ExpressionUUID->"d2ca04f6-ba99-4660-89c5-8cd2be950402"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94872, 1806, 234, 3, 37, "Input",ExpressionUUID->"082512d8-c0ca-40c8-9021-2bbe99277ecf"],
Cell[95109, 1811, 1205, 17, 70, "Output",ExpressionUUID->"7a77ffe5-d8c2-4fbc-b704-77b45883b494"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96351, 1833, 231, 3, 37, "Input",ExpressionUUID->"41ae75bb-6fb0-4b34-b5cd-bd2b647afc2e"],
Cell[96585, 1838, 1212, 17, 70, "Output",ExpressionUUID->"4e15a6fc-c0d7-4581-90b7-cc22ec06b603"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97834, 1860, 322, 6, 37, "Input",ExpressionUUID->"c394a2fd-a61e-4254-8e09-7339e69d519b"],
Cell[98159, 1868, 1209, 17, 70, "Output",ExpressionUUID->"7998e774-7701-499d-a9b1-57018f9364c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99405, 1890, 285, 4, 37, "Input",ExpressionUUID->"dffe555d-5bee-4deb-81ef-f92f951b7330"],
Cell[99693, 1896, 1196, 17, 70, "Output",ExpressionUUID->"a5637368-4879-4516-b035-6158530f35e8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[100938, 1919, 168, 3, 46, "Subsection",ExpressionUUID->"b83ff007-3908-44fa-8aa4-50ad97c657f5"],
Cell[CellGroupData[{
Cell[101131, 1926, 333, 8, 37, "Input",ExpressionUUID->"86cbfc9a-9ef2-42fe-9a63-3d5121d46cb1"],
Cell[101467, 1936, 35346, 621, 70, "Output",ExpressionUUID->"26252e98-dba1-4910-a051-ccd523caf1d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136850, 2562, 367, 9, 37, "Input",ExpressionUUID->"967648a9-93a6-4fc9-8ec1-9d3d17e15c4f"],
Cell[137220, 2573, 64448, 1114, 70, "Output",ExpressionUUID->"9eff7097-bcbf-4d2f-b587-138e704c45df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201705, 3692, 478, 11, 37, "Input",ExpressionUUID->"22379926-6585-4cb5-9d16-edb7f2871783"],
Cell[202186, 3705, 46093, 809, 70, "Output",ExpressionUUID->"e630bda0-503d-4cb6-ba11-c5c171f78203"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248316, 4519, 712, 18, 69, "Input",ExpressionUUID->"b3281982-cffe-47b7-91ed-536eb2cf2a39"],
Cell[249031, 4539, 26813, 486, 70, "Output",ExpressionUUID->"c8e103f8-8118-427b-bd0c-0c27c3531c50"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[275893, 5031, 190, 3, 46, "Subsection",ExpressionUUID->"9fb27783-1154-4c11-8dfd-fece676c568e"],
Cell[CellGroupData[{
Cell[276108, 5038, 217, 4, 37, "Input",ExpressionUUID->"a893cf86-6f3d-4105-9c0f-203d44468797"],
Cell[276328, 5044, 1159, 17, 42, "Output",ExpressionUUID->"93bd3b91-0551-4ccf-81a5-53610442ad22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[277524, 5066, 217, 4, 37, "Input",ExpressionUUID->"26625421-6b80-4201-bfd4-31d386f7a8d8"],
Cell[277744, 5072, 1144, 17, 42, "Output",ExpressionUUID->"84f03ea2-a10a-46a1-bf1c-21d7e11c33f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278925, 5094, 239, 5, 56, "Input",ExpressionUUID->"9b57de47-4107-4624-bfce-69f0afc5a628"],
Cell[279167, 5101, 1142, 17, 42, "Output",ExpressionUUID->"3e242ca4-1d74-45d0-a627-e32bfbc1da62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[280346, 5123, 241, 5, 56, "Input",ExpressionUUID->"c813a4ca-af10-47e1-912b-f7e8ded35d65"],
Cell[280590, 5130, 1133, 17, 42, "Output",ExpressionUUID->"5b21891c-4bc1-461c-89a6-7dc920fee17a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[281760, 5152, 203, 3, 37, "Input",ExpressionUUID->"9a2638f0-a341-407b-ba7c-121ca71301e2"],
Cell[281966, 5157, 1149, 17, 42, "Output",ExpressionUUID->"e46136ef-ccc8-4b13-88ae-70746aaeb430"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283152, 5179, 256, 6, 39, "Input",ExpressionUUID->"64349419-d586-4d29-a481-638e9ede1c2e"],
Cell[283411, 5187, 1150, 17, 42, "Output",ExpressionUUID->"f2a85993-bac4-4ac2-93d6-3230898e796e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284598, 5209, 196, 3, 37, "Input",ExpressionUUID->"06542575-c5eb-47f9-aba4-b2fdc4741734"],
Cell[284797, 5214, 152, 2, 42, "Output",ExpressionUUID->"56cc7785-e6eb-4496-85ec-eaaa11d5e928"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284986, 5221, 295, 6, 37, "Input",ExpressionUUID->"b8e21df9-8bdd-4949-96e4-8966ebeb551d"],
Cell[285284, 5229, 1118, 16, 42, "Output",ExpressionUUID->"d22b6491-ee87-4c3c-8413-aed1a4827cf2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[286439, 5250, 292, 7, 37, "Input",ExpressionUUID->"affb970b-1365-4356-b401-e6631868e557"],
Cell[286734, 5259, 1111, 16, 42, "Output",ExpressionUUID->"67f8244f-0d54-4130-ae64-9388f2e8d0ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[287882, 5280, 249, 5, 37, "Input",ExpressionUUID->"d26c6415-bb5a-42e0-a533-620f3dbd7adc"],
Cell[288134, 5287, 1119, 16, 42, "Output",ExpressionUUID->"6fc19e0c-dbcc-4ccb-b3ae-33377ec88943"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289290, 5308, 287, 6, 37, "Input",ExpressionUUID->"6b122758-87b4-4c01-9db0-1b71791a65c5"],
Cell[289580, 5316, 1145, 16, 42, "Output",ExpressionUUID->"0d9d4e08-63f5-485c-8af9-6c54b08fbfc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290762, 5337, 218, 4, 37, "Input",ExpressionUUID->"89cde70a-7116-4d9e-af61-052bd3b2fc12"],
Cell[290983, 5343, 1118, 16, 42, "Output",ExpressionUUID->"7b46850b-f8a1-404c-8fe2-83be1e559ef8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292138, 5364, 254, 4, 64, "Input",ExpressionUUID->"b6b1b4b0-1373-4611-b206-d84b46949039"],
Cell[292395, 5370, 1115, 16, 42, "Output",ExpressionUUID->"d1b2c114-ebd4-4c60-bd9c-8d55803b9e18"],
Cell[293513, 5388, 1116, 16, 42, "Output",ExpressionUUID->"dba4d8e7-f634-40c2-8c56-37607a33fcea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[294666, 5409, 204, 3, 37, "Input",ExpressionUUID->"de0940e2-8513-4aeb-95be-a25e5a46701e"],
Cell[294873, 5414, 1110, 16, 42, "Output",ExpressionUUID->"3282871a-2e9e-40bf-8819-18b37b64b172"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[296032, 5436, 198, 3, 67, "Subsection",ExpressionUUID->"20e65c69-2940-474f-b1ea-0b89c803e4a2"],
Cell[CellGroupData[{
Cell[296255, 5443, 406, 11, 37, "Input",ExpressionUUID->"02cf5c56-cbbf-4195-ae3e-5f8409af2907"],
Cell[296664, 5456, 1289, 23, 70, "Output",ExpressionUUID->"c4639eb5-6f57-44ba-864b-e46033454b6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[297990, 5484, 433, 10, 37, "Input",ExpressionUUID->"00449594-4e38-485b-9819-67e359b8794f"],
Cell[298426, 5496, 1219, 20, 70, "Output",ExpressionUUID->"b525531d-9c61-4f8b-afa5-bdf4c88db52b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299682, 5521, 635, 18, 64, "Input",ExpressionUUID->"3df3282f-7913-463a-a6c8-d6b1b10917ce"],
Cell[300320, 5541, 1261, 23, 70, "Output",ExpressionUUID->"5db657a6-398c-47c5-b32e-535f3b91a97d"],
Cell[301584, 5566, 1243, 23, 70, "Output",ExpressionUUID->"eecf4914-821a-447a-b737-2a7c06034da3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302864, 5594, 708, 20, 112, "Input",ExpressionUUID->"023e50fc-7823-41f9-86fd-ce904e2b5a06"],
Cell[303575, 5616, 1359, 25, 70, "Output",ExpressionUUID->"28acf046-fdb5-48f4-ad8a-9ff0bdfe6ebe"],
Cell[304937, 5643, 1269, 22, 70, "Output",ExpressionUUID->"ffda61dd-921f-4536-9fca-8edc8158347d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[306255, 5671, 203, 3, 46, "Subsection",ExpressionUUID->"76136e44-8bff-4b38-a4f4-238bde10b1c4"],
Cell[CellGroupData[{
Cell[306483, 5678, 309, 8, 37, "Input",ExpressionUUID->"cc663b4c-7347-4e42-b6d8-0a8981d5090e"],
Cell[306795, 5688, 1097, 20, 70, "Output",ExpressionUUID->"f4984412-0d65-4304-9674-3bee233d4bb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307929, 5713, 370, 10, 37, "Input",ExpressionUUID->"d324efe4-cc2b-45c2-821b-8e554dcfe825"],
Cell[308302, 5725, 988, 15, 70, "Output",ExpressionUUID->"01ed7abb-9200-4c22-b7c4-36d04310ba33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309327, 5745, 422, 13, 37, "Input",ExpressionUUID->"5567c300-9412-4393-b3a8-c2e20547e21b"],
Cell[309752, 5760, 993, 15, 70, "Output",ExpressionUUID->"1acf4917-99a4-42bb-8fb2-93fae07b01bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310782, 5780, 653, 19, 64, "Input",ExpressionUUID->"24fbaab4-4978-457e-98e0-d92da62dba29"],
Cell[311438, 5801, 1176, 22, 70, "Output",ExpressionUUID->"19543229-2e0a-4fe1-864b-00c54989dbc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[312651, 5828, 787, 23, 116, "Input",ExpressionUUID->"1319b0fb-ce2b-4ca7-b0b9-2ed73f9ee1ff"],
Cell[313441, 5853, 1203, 23, 70, "Output",ExpressionUUID->"4760f13c-7155-4e3e-8d0a-0a89b546ff43"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314681, 5881, 653, 19, 64, "Input",ExpressionUUID->"d433d776-9ae4-40bc-bdb2-36af86bb18fa"],
Cell[315337, 5902, 1504, 33, 70, "Output",ExpressionUUID->"47dc976e-c07f-4409-a654-6f4b492f3efc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316878, 5940, 304, 7, 37, "Input",ExpressionUUID->"f5787e69-be9b-4ea1-8536-fddbc18fda32"],
Cell[317185, 5949, 1245, 25, 70, "Output",ExpressionUUID->"e6031493-e0ac-48ef-8051-90c3fd56b4ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318467, 5979, 431, 12, 37, "Input",ExpressionUUID->"d143cca8-5aca-47a5-bb53-473dec674264"],
Cell[318901, 5993, 1286, 26, 70, "Output",ExpressionUUID->"3934670a-80a5-4999-a784-2c3be685b1e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[320224, 6024, 379, 10, 37, "Input",ExpressionUUID->"8a3b00ff-4cf4-4f6b-9d34-8f76d9bf5374"],
Cell[320606, 6036, 1043, 17, 70, "Output",ExpressionUUID->"73fa030d-4389-4405-8df6-aa7cfe1c0136"]
}, Open  ]],
Cell[CellGroupData[{
Cell[321686, 6058, 304, 7, 37, "Input",ExpressionUUID->"43530c33-ffb4-4463-88a2-0097d906fdcc"],
Cell[321993, 6067, 1383, 32, 70, "Output",ExpressionUUID->"be86d2a2-f50e-4869-9cf1-e655cfdafd93"]
}, Open  ]],
Cell[CellGroupData[{
Cell[323413, 6104, 427, 11, 37, "Input",ExpressionUUID->"d3cac816-034e-426d-814a-9bd4559f9197"],
Cell[323843, 6117, 1182, 26, 70, "Output",ExpressionUUID->"0f2ddc81-169f-47f7-a6bf-84f2d3e211a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[325062, 6148, 370, 9, 37, "Input",ExpressionUUID->"08b2b992-247b-466c-a056-fa46b6973b04"],
Cell[325435, 6159, 1746, 39, 70, "Output",ExpressionUUID->"fc021414-a92f-4a06-8724-be92dbc843e8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[327230, 6204, 193, 3, 46, "Subsection",ExpressionUUID->"0a3f2ab0-e6cc-4e3f-b291-792306780496"],
Cell[CellGroupData[{
Cell[327448, 6211, 236, 3, 52, "WolframAlphaLong",ExpressionUUID->"3e2c874f-f0d9-46c4-988d-96055d0439f0"],
Cell[327687, 6216, 16178, 327, 70, "Print",ExpressionUUID->"9c4c750f-93d2-401f-adb6-ca32daa857dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[343902, 6548, 16722, 408, 83, "WolframAlphaShortInput",ExpressionUUID->"de515ac4-5196-4bdd-a3da-1fbe971f1240"],
Cell[360627, 6958, 1143, 25, 70, "Output",ExpressionUUID->"d7f3cead-ad6d-4623-a191-a2671f15dde2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361807, 6988, 25770, 580, 148, "WolframAlphaShortInput",ExpressionUUID->"8adf8e96-11e9-40b6-91ef-3598d4a4759f"],
Cell[387580, 7570, 15065, 303, 70, "Output",ExpressionUUID->"7127f233-0ff0-40ab-8154-e4796844e474"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402682, 7878, 19209, 449, 91, "WolframAlphaShortInput",ExpressionUUID->"56054288-8c0c-4068-960a-23ff5dca4d40"],
Cell[421894, 8329, 868, 13, 70, "Output",ExpressionUUID->"6352f5ee-1e5c-4d44-beea-19dc834760a9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[422811, 8348, 190, 3, 46, "Subsection",ExpressionUUID->"5b484088-7053-4da8-84e2-e4f854c35567"],
Cell[CellGroupData[{
Cell[423026, 8355, 228, 4, 37, "Input",ExpressionUUID->"88eb8677-6435-4d0d-8a74-47c4e6b4139f"],
Cell[423257, 8361, 841, 12, 70, "Output",ExpressionUUID->"e39cdfeb-f29a-45de-89c5-e383dc66a911"]
}, Open  ]],
Cell[CellGroupData[{
Cell[424135, 8378, 195, 3, 37, "Input",ExpressionUUID->"bf148725-7047-411e-9737-efc1233454d1"],
Cell[424333, 8383, 728, 10, 70, "Output",ExpressionUUID->"46cc28ce-4e2b-4cbc-85d5-64b0d584cabf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[425098, 8398, 293, 6, 37, "Input",ExpressionUUID->"ded32c09-5b52-497d-b221-e1d06f5e47e6"],
Cell[425394, 8406, 707, 10, 70, "Output",ExpressionUUID->"4d1465aa-d4a7-45ba-9795-273e68510f3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[426138, 8421, 199, 3, 37, "Input",ExpressionUUID->"46e35423-b1d9-48d8-8142-a46bb2f1f608"],
Cell[426340, 8426, 688, 10, 70, "Output",ExpressionUUID->"e3238d1c-e562-4f1c-80c6-96d000447a4a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[427065, 8441, 826, 23, 142, "Input",ExpressionUUID->"094e4f1a-2013-4f71-8574-7752cd3128b8"],
Cell[427894, 8466, 714, 12, 70, "Output",ExpressionUUID->"4968175b-0426-4d7e-bbe3-d1aaf65efe98"],
Cell[428611, 8480, 745, 13, 70, "Output",ExpressionUUID->"f0066209-349d-4392-9053-baa4a1c187f2"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[429417, 8500, 187, 3, 84, "Section",ExpressionUUID->"89e2ece9-30c5-4eed-8ed9-47f314ed7139"],
Cell[CellGroupData[{
Cell[429629, 8507, 172, 3, 67, "Subsection",ExpressionUUID->"9e0c4162-dbbb-4497-91a6-25a399cbecb7"],
Cell[CellGroupData[{
Cell[429826, 8514, 650, 13, 37, "Input",ExpressionUUID->"be46b14e-1273-48bd-8c3f-2439b88971c7"],
Cell[430479, 8529, 904, 15, 70, "Output",ExpressionUUID->"6804aaa0-532e-463c-8307-ded5c0e07a28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[431420, 8549, 613, 12, 37, "Input",ExpressionUUID->"5e827483-4b82-4caf-b27e-6c9dd2fdacf6"],
Cell[432036, 8563, 857, 14, 70, "Output",ExpressionUUID->"bdd431e6-ab1e-45d9-a486-7bac81543923"]
}, Open  ]],
Cell[CellGroupData[{
Cell[432930, 8582, 532, 11, 37, "Input",ExpressionUUID->"44774110-b5b0-44c8-98f6-964065073985"],
Cell[433465, 8595, 858, 14, 70, "Output",ExpressionUUID->"f330451f-e130-4c83-bd5b-a14b00221b24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[434360, 8614, 563, 12, 37, "Input",ExpressionUUID->"7bb61062-3aa8-4dcb-a2d2-59e5e2e8a854"],
Cell[434926, 8628, 896, 15, 70, "Output",ExpressionUUID->"58beeeed-377d-4e3f-980c-5b86367ce0b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435859, 8648, 293, 7, 37, "Input",ExpressionUUID->"0bcb9fb0-0c69-4a27-a853-01697726ebb2"],
Cell[436155, 8657, 581, 9, 70, "Output",ExpressionUUID->"310debbe-3a9b-4650-83db-2e6747d2c0e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[436773, 8671, 1034, 24, 116, "Input",ExpressionUUID->"3021fa14-4730-47f3-a454-b85063d23a25"],
Cell[CellGroupData[{
Cell[437832, 8699, 217, 6, 70, "EchoTiming",ExpressionUUID->"52ac8e0a-4634-4989-a6e1-3492e34b8bd8"],
Cell[438052, 8707, 215, 6, 70, "EchoTiming",ExpressionUUID->"b17228ec-455b-448f-a299-3c27ca5213fc"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[438328, 8720, 167, 3, 46, "Subsection",ExpressionUUID->"4157f0f2-dfe1-4e42-89ec-a157dbdc533b"],
Cell[CellGroupData[{
Cell[438520, 8727, 275, 6, 37, "Input",ExpressionUUID->"c4fc31a0-2e1f-4d2d-b950-723cfd4fc71d"],
Cell[438798, 8735, 817, 15, 70, "Message",ExpressionUUID->"dbe6a5a1-f11e-47fe-9b2b-d01e1ab35538"],
Cell[439618, 8752, 573, 9, 70, "Output",ExpressionUUID->"10af649b-e8f2-48d0-a3b6-e792ba03bd78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[440228, 8766, 302, 7, 37, "Input",ExpressionUUID->"33268fb6-3a81-4f6f-8488-77ed81a8469c"],
Cell[440533, 8775, 720, 14, 70, "Message",ExpressionUUID->"725d51ac-a634-45a4-a1f2-db0d2642f370"],
Cell[441256, 8791, 517, 8, 70, "Output",ExpressionUUID->"154af00d-fd4b-4bd4-9332-cdad988c71cb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[441822, 8805, 174, 3, 46, "Subsection",ExpressionUUID->"b1dbfaf2-11c5-4593-a4f6-347d25fa4a64"],
Cell[CellGroupData[{
Cell[442021, 8812, 608, 18, 116, "Input",ExpressionUUID->"02d13b52-7527-4f27-a607-5d8cd77ae210"],
Cell[CellGroupData[{
Cell[442654, 8834, 128, 3, 70, "Echo",ExpressionUUID->"7402694b-d888-4ab4-ab35-3218c8f15dab"],
Cell[442785, 8839, 128, 3, 70, "Echo",ExpressionUUID->"31df84b6-ce7a-4ee3-a0ab-ab4cffd76f8a"],
Cell[442916, 8844, 129, 3, 70, "Echo",ExpressionUUID->"b05c063b-60ee-4757-af07-ab199951b1c7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[443094, 8853, 1004, 30, 194, "Input",ExpressionUUID->"6fd672d8-595a-4544-b5bc-e62df4b8eb28"],
Cell[CellGroupData[{
Cell[444123, 8887, 200, 6, 70, "Echo",ExpressionUUID->"6f9171e9-fff2-4c09-bf5c-927f21bab11d"],
Cell[444326, 8895, 202, 6, 70, "Echo",ExpressionUUID->"3104ee08-9bab-43cf-89ac-a1fe0e4be086"],
Cell[444531, 8903, 564, 16, 70, "EchoBefore",ExpressionUUID->"c1d7c834-c8ca-4f65-9a47-bcc8ea20d25c",
 CellTags->"2d8d2b42-6d8b-4b6b-98c0-1fc6b46615a8"],
Cell[445098, 8921, 669, 20, 70, "EchoAfter",ExpressionUUID->"92a034f6-2bb8-45d5-b9b7-efbb800e418a",
 CellTags->"56ede74b-e07a-49b3-a5fb-38ff26dabaec"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[445816, 8947, 1136, 35, 246, "Input",ExpressionUUID->"6b57d54c-aa35-401d-9ab6-381514a56e87"],
Cell[CellGroupData[{
Cell[446977, 8986, 200, 6, 70, "Echo",ExpressionUUID->"37eed54b-a468-4483-9495-b698f927fb2d"],
Cell[447180, 8994, 138, 2, 70, "EchoTiming",ExpressionUUID->"6b69af04-40b3-40b3-806f-a8e068534ea9"],
Cell[447321, 8998, 202, 6, 70, "Echo",ExpressionUUID->"28270834-3e29-49b7-85a9-abfe7975e108"],
Cell[447526, 9006, 142, 3, 70, "EchoTiming",ExpressionUUID->"8bb45b30-1a9b-4d24-b61a-22f4952c2615"],
Cell[447671, 9011, 564, 16, 70, "EchoBefore",ExpressionUUID->"5cae736c-3762-471e-88ae-2ab8f6ecc937",
 CellTags->"7a06de5b-f5e0-4f04-b4c6-c1cb97419b3b"],
Cell[448238, 9029, 671, 20, 70, "EchoAfter",ExpressionUUID->"6b2cb101-7193-410e-ad18-e47608c85880",
 CellTags->"798204eb-5f0d-476c-aa47-01a8f98e0faa"],
Cell[448912, 9051, 144, 3, 70, "EchoTiming",ExpressionUUID->"9f7f9372-e684-4a79-bffa-c2003c0ee32b"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[449129, 9062, 170, 3, 84, "Section",ExpressionUUID->"2e51bf8e-adb0-404f-baf8-39915f745057"],
Cell[CellGroupData[{
Cell[449324, 9069, 195, 3, 67, "Subsection",ExpressionUUID->"66de7941-5712-40f7-8111-a0802a907b9d"],
Cell[CellGroupData[{
Cell[449544, 9076, 285, 7, 37, "Input",ExpressionUUID->"231432e4-75e4-4827-93f0-9a4e13fe66b3"],
Cell[449832, 9085, 494, 11, 76, "Output",ExpressionUUID->"b38295ea-d998-4317-a741-c035ddb00d4a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[450363, 9101, 534, 15, 56, "Input",ExpressionUUID->"a76efdae-fd90-4ca1-8b33-1c4e2dbc43f6"],
Cell[450900, 9118, 1401, 45, 42, "Output",ExpressionUUID->"a0c064b0-429a-491d-90c3-e8c4078149da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[452338, 9168, 281, 7, 56, "Input",ExpressionUUID->"c1e8a7a0-8d56-4b28-9b65-738e3e5ddc6c"],
Cell[452622, 9177, 642, 18, 60, "Output",ExpressionUUID->"d69a6cb1-b5e8-46e0-839d-39595c10f2c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[453301, 9200, 275, 7, 56, "Input",ExpressionUUID->"719c487c-06b2-4b6a-abeb-d1147d5b20ca"],
Cell[453579, 9209, 4483, 122, 489, "Output",ExpressionUUID->"2854e9d5-1c79-407b-a935-d5f78f6aff7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[458099, 9336, 392, 11, 37, "Input",ExpressionUUID->"3cbcc22f-2c38-43f5-96f2-82924475980d"],
Cell[458494, 9349, 734, 25, 58, "Output",ExpressionUUID->"8f8f0e64-d218-4202-a80d-ace96d548664"]
}, Open  ]],
Cell[CellGroupData[{
Cell[459265, 9379, 433, 12, 37, "Input",ExpressionUUID->"83c7c546-00c7-4c1b-b529-31c92268ef92"],
Cell[459701, 9393, 1283, 38, 87, "Output",ExpressionUUID->"67dc146a-bfd0-42bc-9dc2-14bbc584942a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[461021, 9436, 412, 10, 56, "Input",ExpressionUUID->"e49669b8-34ae-4a7d-8e5e-6e8026299964"],
Cell[461436, 9448, 29567, 814, 274, "Output",ExpressionUUID->"4d3978df-f1e1-4fa4-960c-c63e8104694f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[491052, 10268, 178, 3, 46, "Subsection",ExpressionUUID->"9d08a036-0a70-4f60-b609-1520e8e3985e"],
Cell[CellGroupData[{
Cell[491255, 10275, 196, 4, 37, "Input",ExpressionUUID->"8481d4c9-1aba-4093-b855-9ee18b1bfc40"],
Cell[491454, 10281, 12682, 304, 70, "Output",ExpressionUUID->"5b4d6659-8400-4cb8-95d1-45715304eb8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[504173, 10590, 196, 4, 37, "Input",ExpressionUUID->"bb71d916-8c40-4391-a4df-cd62a0de7eb7"],
Cell[504372, 10596, 11649, 279, 70, "Output",ExpressionUUID->"934ab454-5e45-4dda-9ad3-16c616e5b3ad"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[516070, 10881, 171, 3, 46, "Subsection",ExpressionUUID->"cadd9a8e-664f-4868-bfe8-8abceba78faa"],
Cell[CellGroupData[{
Cell[516266, 10888, 191, 3, 37, "Input",ExpressionUUID->"910ee37b-9acd-4638-ad02-c26bb23cd734"],
Cell[516460, 10893, 298, 5, 42, "Output",ExpressionUUID->"be7191d4-dfa0-41d8-a646-683610d039f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[516795, 10903, 195, 3, 37, "Input",ExpressionUUID->"94efe70f-c250-4d42-9230-a338f32aa700"],
Cell[516993, 10908, 313, 5, 42, "Output",ExpressionUUID->"7696f9c5-db0a-42bd-9428-53f5ef61720e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[517343, 10918, 193, 3, 37, "Input",ExpressionUUID->"276578cf-b9b6-4d23-88be-e2e226bf518c"],
Cell[517539, 10923, 289, 5, 42, "Output",ExpressionUUID->"96a0e5c6-f1fb-4935-849f-50bd16cb1e97"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)

